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6101 
6105 

6106 ;ERR * 0 .-[BUSERD BUS ERROR TRAP TO LOC. 4 OCCURRED 

6107 THIS ERROR IS NOT PRINTED AND IS FOR "APT" USE. 
6108 

6109 ;ERR # 1 ; CTSTTRP]FATAL DATA ERROR 

6110 .-LOCATIONS 0000-430 FAILED I'S ♦ O'S TEST. 

611 1 :R0 = GOOD DATA 

6112 ;R1 - ADDRESS OF FAILING LOCATION. 
6113 

6114 ;ERR # 2 ;LAPTSIZ] APT FATAL ERROR 

6115 .APT MEMORY TABLES NOT SETUP CORRECTLY. 

6116 .-CHECK LOCATIONS SNAMSI C4303 TO $nADR4C446] 

6117 ;, FOR CORRECT MEMORY SIZE DATA. 
6118 

6119 ;ERR # 3 ;CTSTSIZ3 OPERATOR FATAL ERROR 

6120 .-SELECTED MEMORY SIZE GREATER THAN 28K 

6121 ;(30K SYSTEM DOES NOT NEED KT SUPPORT), BUT 

6122 ;SR BIT12 (10000) NOT SET. 

6123 ;SET BIT12 AND RESTART AT 200. 
6124 

6125 ;ERR # 4 .-CTSTSIZJ OPERATOR FATAL ERROR 

6126 .-LOWEST SELECTED TEST LIMIT IS HIGHER THAN 

6127 .-HIGHEST TEST LIMIT. SET LOCATIONS •10WTU0"C322J 

6128 ;T0 "HIGHADD" £3302 CORRECTLY AND RESTART 

6129 ;AT 200. 
6130 

6131 ;ERR * 5 ;CTST03 TEST SEQUENCE ERROR 

6132 :TSTO HAS BEEN ENTERED OUT OF SEQUENCE 

6133 .-TESTN SHOULD = 00 

6134 .-THE DIAGNOSTIC HAS BEEN CORRUPTED. 

6135 :IF POSSIBLE SELECT ANOTHER 4K BANK 

6136 .-BANK 0 AND RERUN THE TEST ON THE FAILING MEMORY. 
6137 

6138 :ERR « 6 .-CTST03 DUAL ADDRESSING ERROR 

6139 .-FOR THIS ERROR THE GOOD DATA PRINTED IS AN 

6140 .-ADDRESS. THIS IS THE ADDRESS SELECTED WHEN 

6141 .-THE SAME DATA WAS WRITTEN INTO THE FAILING 

6142 .-LOCATION. CHECK BANK SELECT CIRCUITRY 
6143 

6144 :ERR M 7 ;CTST0J ADDRESS AND DATA ERROR 

6145 .-IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA 

6146 .-WRITTEN INTO THE FAILING LOCATION WAS IN 

6147 .-ERROR ALSO. 

6148 

6149 ;ERR # 10 .-CTST03 DATA ERROR 

61 SO ;IF BAD DATA = 0000 COULD 8E AN ADDRESSING 

6151 .-ERROR . EL<;E COMPARE GOOD AND BAD DATA FOR FAILING BITS. 

6152 

6153 ;ERR # 11 ;CTST03 ADDRESSING ERROR 

6154 .-THE FAILING ADDRESS RFSPONDED BUT IS NON- 
6155 .-EXISTENT. MAY BE A DUAL ADDRESSING PROBLEM. 

6156 

6157 .-ERR # 12 ;CTST13 TEST SEQUENCE ERROR 

6158 .-STESTN C404J SHOULD = 01 

6159 ; THE DIAGNOSTIC HAS BEEN CORRUPTED. 
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;ER« * 13 
;ERR # 14 
;ERR * 15 
:ERR # i6 
;ERR # 17 
;ERR # 20 

;ERR # 21 

;ERR # 22 

:ERR « 23 

;ERR « 24 

;ERR # 25 
:ERR H 26 



;ERR » 27 



.CTSTi] DATA ERROR 

.•COMPARE GOOD AND BAD PRINTED DATA, FAILING 
.DATA BITS MAY SHORTED OR SWAPPED. 

;[TST23 TEST SEQUENCE ERROR 
;$TESTN C404] SHOULD = 02 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

:CTST23 ADDRESS OR DATA ERROR 

:IF "ADR ERR" NOT PRINTED THEN THE BYTE SELECT 

.CIRCUITRY PROBABLY FAILED. 

;CTST33 TEST SEQUENCE ERROR 
;tTESTN C404J SHOULD = 03 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;[TST3] DUAL ADDRESSING ERROR 

:DUAL ADDRESSING PROBLEM FOR BITS THAT DIFFER 

;IN GOOD AND BAD DATA PRINTOUT. 

;CTST33 DUAL ADDRESSING ERROR 
;FOR THIS ERROR THE DATA PRINTED IS AN ADDRESS. 
.-THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE 
.-SAME DATA UAS WRITTEN INTO THE FAILING LOCATION. 

;CTST33 DUAL ADDRESSING ERROR 

.-SAME AS ERROR #20 EXCEPT DIFFERENT DATA 

.-(SWAPPED BAKPAT) WAS WRITTEN. 

;[TST4: TEST SEQUENCE ERROR 
;(TESTN C404J SHOULD = 04. 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;CTST43 DUAL ADDRESSING ERROR 

;IF PASFL6 = 0 THEN THE FAILING LOCATION 

:AND FAILING DATA ARE DUAL ADDRESSES. 

;CTST53 TEST SEQUENCE ERROR 

;$TESTN C4043 SHOULD = 05 

; THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;CTST5J DATA ERROR 

.•DATA WRITE OR READ ERROR. 

;CTST5J MARCHING I'S AND O'S DATA ERROR 

;IF PASFLG=0 FAILED MARCHING TS ♦ O'S IN 

MAX TO MIN DIRECTION. 
;IF PASFLG=1 FAILED MARCHING I'S ♦ 0*S IN 

MIN TO MAX DIRECTION 
;IF PASFL6=3 FAILED MARCHING O'S ♦ I'S IN 
; MAX TO MIN DIRECTION. 

rTST53 MARCHING I'S AND O'S DATA ERROR 
IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS 
CHECKED IMMEDIATELY AFTER BEING WRITTEN. 
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61' 16 
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6229 
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623A 
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62A0 

6241 
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6247 
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6249 

6250 
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6256 
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6258 
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6262 
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6271 



;ERR » 30 
;ERR » 31 



;ERR » 32 
;ERR # 33 



.ERR # 34 

;ERR # 35 
;ERR # 36 

;ERR # 37 
.-ERR « 40 
;ERR # 41 
:ERR # 42 



;CTST63 TEST SEQUENCE ERROR 

.STES^N SHOULD = 06 

.-THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;CTST63 VOLATILITY/REFRESH TEST ERROR 

;IF PASFLG=0 BAKPAT WRITE OR READ ERROR. 

;1F PASFL6::1 THE FAILING LOCATION CHANGED WHILE 

ANOTHER LOCATIONS WAS WRITTEN FOR 

2 US. THE OTHER LOCATION IS SAVED 

IN SAVLOC C3523 
;IF PASFLG=2 SWAPPED BAKPAT (77400 OR 77000) 

WRITE OR READ ERROR. 
;1F PASFLG=3 SAME AS IF PASFLG=2 EXCEPT 

THE DATA IS SWAPPED BAKPAT. 

;CTST73 TEST SEQUENCE ERROR 

.-STESTN SHOULD - 07 

:THE DIAGNOSTIC HAS BEEN CORRUPTED. 

:CTST7J SHIFTING DIAGONAL DATA ERROR 

;IF PASFLG=0 BAKPAT WRITE OR READ ERROR. 

:IF PASFLG=1 BAKPAT READ CHECK ERROR 

;IF PASFLG GREATER THAN 1 BUT EVEN VALUE THEN: 

THE FAILING LOCATION COULD NOT BE WRITTEN INTO. 
:IF PASFLG GREATER THAN 1 BUT ODD VALUE THEN: 

THE FAILING LOCATION WAS WRITTEN CORRECTLY 

BUT LOST THE DATA. 

.-CTSTIOD TEST SEQUENCE ERROR 
.-STESTN SHOULD = 10 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

.-CTSTIO] BAKPAT DATA ERROR 

.BAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION. 

;CTST103 READ RECOVERY DATA ERROR 

THIS ERROR CAN BE REPORTED BY TST10 AND TST11. 
;(THEY SHARE CODE). SEE STESTN C404] FOR WHICH TEST FAILED. 
.FOR BOTH TESTS COMPARE THE GOOD AND BAD DATA AT THE FAILING 
.-LOCATION TO SEE WHICH BITS FAILED. 

;CTST10] READ RECOVERY DATA ERROR 

.•IDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS 
:USED AS WRITE AND READ DATA. 

;CTST11J TEST SEQUENCE ERROR 
.-STESTN SHOULD = 11 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

:CTST123 TEST SEQUENCE ERROR 
; STESTN SHOULD = 12 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;[TST123 WORST CASE CORE TEST DATA ERROR 

;IF PASFLG=1 COMPARE GOOD AND BAD DATA FOR FAILING BITS. 

;IF PASFLG=2 THE FAILING LOCATION WAS WRITTEN AND READ 



;ERR » 43 
:ERR » U 
:ERR « 45 

;ERR # 46 
;ERR # 47 
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;ERR » 50 

:ERR » 51 

:ERR « 52 

;ERR # 53 

.REPT 0 



WITH GOOD DATA.BUT FAILED READ CHECK 
READING IN THE MIN. TO n#X DIRECTION. 
IF PASFL6=3 SAME CONDITIONS AS PASFLG=2 EXCEPT FAILED 

DOING THE READ CHECK FROM MAX TO niN DIRECTION. 

CTST123 WORST CASE CORE TEST DATA ERROR 

IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN 
AND READ IS COMPLEMENTED. 

CTST13] TEST SEQUENCE ERROR 

STESTN SHOULD = 13 ^ 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

[TST13D WRITE RECOVERY TEST DATA ERROR 
IF PASFLG=0 COMPARE GOOD AND BAD DATA FOR FAILING BITS. 
IF PASFLG=77400 DATA ERROR FOUND WHILE DOING A SECOND READ CHECK. 
IF PASFLG=77402 DATA ERROR FOUND IN FAILING LOCATION AFTER 
SMALL TEST PROGRAM RUN IN FAILING BANK. 

CTST133 WRITE RECOVERY TEST DATA ERROR 

DATA ERROR FOUND JUST BEFORE THE SMALL TEST 
WAS TO BE RUN IN THE FAILING BANK. TO AVOID "BLOWING" UP 
WHEN THE SMALL TEST IS RUN TST13 IS ABORTED. 

CTST13D WRITE RECOVERY TEST DATA ERROR 

IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN 
AND READ IS DIFFERENT. (177667) . 

177667 IS THE COMPLEMENT OF "JMP (RO)" (110) WHICH IS 
THE ESCAPE FROM THE SMALL TEST PROGRAM RUN IN THE BANK 
UNDER TEST. 

CPARERR3 PARITY TRAP ERROR 

PARITY TRAP TO 114 OCCURRED. 
FOR THIS ERROR PRINTOUT THE "GOOD DATA" IS ACTUALLY 
THE FAILING PARITY MODULE UNIBUS ADDRESS. 

SAVLOC C3S2J CONTAINS THE PC WHERE THE TRAP OCCURRED. 

CPARITYD PARITY TRAP FATAL ERROR 
A PARITY TRAP TO 114 OCCURRED, BUT NO PARITY MODULES COULD BE FOUND 
WITH AN ERROR BIT (BIT1S) SET. 

CN0MM3 OPERATOR FATAL ERROR 

TESTING ABOVE 28K WAS SELECTED, BUT NO MEMORY MANAGEMENT 
OPTION WAS FOUND. (30K SYSTEM DOES NOT NEED KT) 

RESET SWITCH OPTIONS AND RESTART AT 200. 

CPARITY3 OPERATOR FATAL ERROR 

PARITY TESTING WAS SELECTED BUT NO PARITY MODULES 
WERE FOUND. 

RESET SWITCH OPTIONS AND START AT 200. 



C6.3J ERROR HISTORY 
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6335 LOCATIONS IN NEWRY ARE SET ASIDE TO COLLECT A HISTORY 

6336 OF THE FAILING CITS IN A PARTICULAR NEmRY BANK. THIS 

6337 DATA IS COLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH 

6338 SETTINGS. 
6339 

63';0 NORMALLY THE DATA IS OUTPUT AT THE END OF TESTING, BUT 

63A1 IF CONTROL-C IS TYPED IT IS OUTPUT AT THE END OF THE 

6342 CURRENT TEST. 

6343 

6344 THE ERROR HISTORY IS INTENDED TO HIGHLIGHT IF THE ERRORS 

6345 ARE DUE TO 1 BIT FAILING OR ONLY ADDRESS ERRORS. 
6346 

6347 
6348 

6349 ERROR HISTORY FORMAT: 

6350 

6351 

6352 ERROR BANK COUNT 

6353 

6354 

6355 

6356 WHERE: 
6357 

6358 ERROR = BIT THAT FAILED CNUMBER OF THE FAILING BIT IN DECIMAL I.E. 

6359 0-15 WILL BE TYPED OUT OR THE WORDS "ADR ERR" OR 'V>AR ERR" WILL 

6360 BE TYPED OUT IF ADDRESS ERROR OR PARITY ERROR WAS SEEN 

6361 IN THE SPECIFIC BANK OF MEMORY 

6362 BANK 4K MEMORY BANK IN WHICH THIS FAILURE. WAS SEEN 

6363 A 0 FOR 0 TO 4K, A 1 FOR 4 TO 8K AND SO ON 

6364 COUNT = NUMBER OF TIMES THIS MEMORY BANK FAILED. 

6365 (377 IS MAXIMUM FAILURE COUNT RECORDED.) 

6366 C6.4] ERROR RECOVERY 
6367 

6368 IF THE PROGRAM IS HALTED AFTER REPORTING AN ERROR IT CAN EITHER 

6369 BE CONTINUED OR RESTARTED AT 200 OR 250 (SEE SEC 4.2). HOWEVER FOR 

6370 CPU'S THAT DESTROY CONTENTS OF REGISTERS AFTER COMING TO A HALT 

6371 THE PROGRAM SHOULD ONLY BE RESTARTED. 

6372 
6373 

6374 C7.0] RESTRICTIONS 
6375 

6376 MEMORY UNDER TEST SHOULD BE CONTIGUOUS. FOR SYSTEMS HAVING NON- 

6377 CONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEFINED BY THE 

6378 OPERATOR. (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT CAN BE 

6379 BOTH READ AND WRITTEN IN CONSECUTIVE LOCATIONS.) 
6380 

6381 
6382 
6383 

6384 C8.03 MISCELLANEOUS 

6385 

6386 

6387 C8.n ADDRESS/BANK RANGES IN OCTAL AND DECIMAL 
6388 

6389 THIS REFERENCE TABLE CROSS REFERENCES THE MEMORY BANK NO.S, 

6390 THE RANGE AND THE PAR USED WHEN MEMORY MANAGEMENT IS ENABLED. 
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6416 
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6419 
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6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 
6444 
6445 
6446 



IT IS ALSO USEFUL TO SHOW STARTING ADDRESSES IN A PAR- 
TICULAR 4K BANK. 



BANK NO. 


DECIMAL 


OCTAL 


[PAGE ADDRESS REGISTERS 


RANGE 


RANGE 


USED/CONTENT 


UNIBUS 


0 


0 - 4K 


000000-017776 


n 


nrion 


f f £3*11/ 


1 

1 


Lit • Silt 


OPOOOO-037776 


nui 


UoCU 




2 


8K-12K 


040000-057776 


nU 1 






3 


12K-16K 


060000-077776 


NOT 


USED 




4 


16K-20K 


100000-117776 


MOT 






c 

J 




1P0000-1 37776 


MOT 






6 


24K-28K 


140000-157776 


MOT 


USED 


(LSI-11 


7 


28K-32K 


160000-177776 


NOT 


USED ON 30K 




1 


1600 


772342 


a 

W 




200000-217776 


C 


C\j\l\l 


772344 


9 


36K-40K 


220000-237776 


X 

J 


ccUw 


772346 


10 


40K-44K 


240000-257776 


L 




772350 


11 


44K-48K 


260000-277776 


c 

J 


5600 


772352 


12 


48K-52K 


300000-317776 


o 




772354 


13 


52K-56K 


320000-337776 


1 
1 






14 


56K-60K 


340000-357776 


2 


3400 




15 


60K-64K 


360000-377776 


3 


3600 








400000-417776 

"WWW ^ 1 » * r w 


/ 

H 


4000 




17 


68K-72K 


420000-437776 


J 


4 POO 




18 


72K-76K 


J # AAAM 4 ^^^^^ 

440000-457776 


6 


4400 




19 


76K-80K 


460000-477776 


1 


4600 




20 


80K-84K 


500000-517776 


C 


5000 

y wvv 




21 


84K-88K 


520000-537776 




5200 




22 


88K-92K 


540000-557776 


4 


5400 




23 


92K-96K 


560000-577776 


5 


5600 




24 


96K-100K 


600000-617776 


6 


6000 




25 


100K-104K 


620000-637776 


1 


6200 




26 


1 Ay 1/ i AO V 
l04K-lUoK 


o400U0-o5^f rO 


2 


6400 




27 


108K-112K 


660000-677776 


3 


6600 




28 


112K-116K 


700000-717776 


4 


7000 




29 


116K-120K 


720000-737776 


5 


7200 




30 


120K-124K 


740000-757776 


6 


7400 




31 


124K-128K 


760000-777776 


7 


7600 


772354 


NOTES: 













THE PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOUN IN A TEST THAT SELF SIZES. 
IF THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND 
IF THE BANK IS ABOVE 28K PAR NO. 1 WILL BE SET TO THE 
BEGINNING PAGE. FOR EXAMPLE IF THE TESTING WAS TO 
BEGIN WITH BANK 8 PAR NO. 1 WOULD EQUAL 2000« PAR 2 
WOULD EQUAL 2200 ETC. 
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6AA7 C8.2] EXECUTION TIME 
6446 

6449 HERE ARE SOHE TYPICAL EXECUTION TIMES. 

6450 

6451 LSI-11 AND 4K:= 100 SECS. 

6452 LSI-11 AND 8K:: 5 MINUTES. 
6453 

6454 
6455 

6456 CB.2] PASS COUNT AND TEST NO. LOCATIONS 
6457 

6458 $PASS C4063 = PASS COUNT - CLEARED BY START AT 200. 

6459 

6460 STESTN C4043 > CURRENT TEST NO. AND RELOCATION, PARITY FLAGS. 

6461 WHERE: 

6462 LOU BYTE = TEST NO. 

6463 IF BIT15 - 1 TEST IS RELOCATED 

6464 IF BIT13 - 1 PARITY UNDER TEST. 
6465 

6466 

6467 C8.4] STACK POINTER 
6468 

6469 THE STACK STARTS AT 500 WHEN THE PROGRAM IS NOT RELOCATED. 

6470 SAVR6C350] CONTAINS THE STACK STARTING VALUE UHEN THE DIAGNOSTIC 

6471 IS RELOCATED. 

6472 SAVR6 ALSO CONTAINS THE STARTING ADDRESS OF THE PROGRAM UHEN 

6473 IT IS RELOCATED. 

6474 

6475 C8.5] POWER FAIL 
6476 

6477 THE DIAGNOSTIC CAN BE POWER FAILED WITH NO ERRORS. TO USE, 

6478 START THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME. 

6479 THE PROGRAM SHOULD TYPE "P" AND CONTINUE TO RUN FROM TEST 0 

6480 IN THE SAME STATE Ci.E. STATE OF RELOCATION] AS IT WAS BEFORE 

6481 THE POWER WAS INTERRUPTED, HOWEVER IF THE DIAGNOSTIC WAS IN 

6482 A MEMORY THAT CAN NOT HOLD DATA WITH THE POWER DOWN THEN THE 

6483 PROGRAM WILL NOT RECOVER FROM POWER FAIL AND ON POWER-UP 

6484 OPERATION IS UNDEFINED. 
6485 

6486 
6487 

6488 C9.0J PROGRAM DESCRIPTION 

6489 

6490 

6491 C9.n NARRATIVE FLOW CHART 
6492 

6493 THE TEST IS LOADED INTO LOCATIONS 0000 - 7744 BUT 

6494 EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST. 

6495 SEE STEP 6. BELOW FOR A DETAILED EXPLANATION. 
6496 

6497 THE FOLLOWING NARRATIVE FLOW CHART DESCRIBES MAJOR 

6498 PROGRAM OPERATION. FOR THE PERSON WHO NEEDS DETAIL THE 

6499 TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETS. 

6500 

6501 FOR THIS DISCUSSION SWITCH SETTINGS ARE IGNORED AND EVERYTHING IS 

6502 ASSUMED ENABLED. 
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6503 




6504 


1. 


6505 




6506 


2. 


6507 




6508 




6509 


3. 


6510 




6511 




6512 




6513 


4. 


65U 




6515 




6516 




6517 




6518 




6519 




6520 




6521 


5. 


6522 




6523 


6. 


6524 




6525 




6526 




6527 




6528 




6529 




6530 




6531 




6532 




6533 




6534 




6535 




6536 




6537 




6538 




6539 




6540 




6541 




6542 




6543 




6544 


7. 


6545 




6546 




6547 




6548 




6549 




6550 


8. 


6551 




6552 


9. 


6553 




6554 


10 


6555 




6556 




6557 


11 


6S58 





CSTART] PRINT "CNKMAA" TITLE 

CTSTRP] SAVE DATA FROM LOCATIONS 0-376 
INTO 7744-10314. 

CTSTRP] TEST LOCAriQNS 0-376 BY WRITING AND 
READING 1'S AND O'S. NOTE THIS IS THE ONLY 
EXPLICIT TESTING OF THESE LOCATIONS. 

CSLFSIZ: SIZE MEMORY BY WRITING INTO SUCCEEDING 
MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO 4 OCCURS. 
OR 30K BOUNDARY REACHED. 

ENABLE MEMORY MANAGEMENT AND SIZE MEMORY ABOVE 

2SK 

NOTE: IF UNDER XXDP CHAIN MODE IN 30K SYSTEM, SYSTEM IS SIZED 
TO 28»C. 

CTYPSIZ] TYPE MEMORY TEST LIMITS. 

CSETSTK] SPACE IS SAVED AT THE END OF THE TEST 

FOR AN ERROR HISTORY. FOR EACH 4K BANK 18 BYTES ARE SAVED 

IN THE FOLLOWING FORMAT: 



!ADR ERR 

!BIT14 

!BIT12 

!BIT10 

!BIT08 

!BIT06 

.'BIT04 

.'BIT02 

.'BITOO 



•PAR ERR 

!BIT15 

!BIT13 

IBIT11 

IBIT09 

I8IT07 

iSITOS 

IBIT03 

!BIT01 



IF GREATER THAN 4K UNDER TEST THE ABSOLUTE LOADER 
(300 ADDRESSES) IS APPENDED. IF GREATER THAN 4K 
AND UNDER XXDP CHAIN MODE 5376 (OCTAL) ADDRESSES 
ARE APPENDED TO THE TEST. THIS SAVES THE XXDP 
MONITOR. AND ALLOWS THE LOCATIONS OCCUPIED BY XXDP 
TO BE TESTED. 

rCLRMEMD CALL "PARITY" ROUTINE AND IF SELECTED, 
ENABLE ALL PARITY MODULES. "PARMAP" CLOC. 352] 
CONTAINS A MAP OF PARITY MODULES FOUND. IF 
MODULE 172336 BIT 15 IS SET, IF #172334 FOUND BIT 14 
IS SET ETC.. 

rCLRMEMD CLEAR MEMORY CURRENTLY UNDER TEST 
CCONT] DISPATCH TO TSTO 



CTSTO] EXECUTE TEST 0. 
DESCRIPTIONS. 



SEE SECTION 10 FOR TEST 



CTSTSCP] COMES HERE AFTER EACH TEST AND IF 
CNTRL-C TYPED THEN GO TO ERROR HISTORY PRINTOUT. 



K 1 
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6559 IF SR=2000 THEN HALT 

6560 IF SR=40000 THEN LOOP ON TEST DEFINED BY <3:0> 

6561 ELSE CONTINUE TO NEXT TEST. 

6563 12. CTST1-TST12] EXECUTE TST1-TST12 tACH TIME 

656A GOING TO STEP 9. 

6566 13. CTST133 TEST 13 IS DIFFERENT FROM TESTS 0-12. 

6567 BECAUSE IT IS A SMALL PROGRAM ACTUALLY RUNNING 

6568 IN THE MEMORY UNDER TEST. BEFORE THIS SHALL 

6569 PROGRAM IS STARTED "TSTIS BNK XX" IS TYPED. 

6570 THIS IS DONE IN CASE THE PROGRAM FAILS . THE 

6571 USER CAN THEN AT LEAST TELL WHICH BANK OF MEMORY 

6572 FAILED. 
6573 

6574 U. [RELOC] THE PROGRAM RELOCATES TO HIGH MEMORY 

6575 TO TEST THE LOCATIONS IT OCCUPIES. (430-ENDPRG) . 

6576 WHERE "ENDPRG" IS THE CONTENTS OF ENDSTICC306]. 

6577 I.E THE LAST PROGRAM ADDRESS. NOTE "REL" IS 

6578 PRINTED JUST PRIOR TO THE ACTUAL RELOCATION. 
6579 

6580 15. TESTS 0-13 ARE RUN AS DESCRIBED ABOVE EXCEPT 

6581 ONLY BANK 0 LOCATIONS 430-ENDPR6 ARE TESTED. 
6582 

6583 16. CRELOER] RELOCATE THE PROGRAM BACK TO LOWER 

6584 MEMORY. 
6585 

6586 17. [LOWER] IF CONTROL-C TYPED GO PRINT ERROR 

6587 HISTORY. 
6588 

6589 18.CTSTMM] IF MEMORY MANAGEMENT SELECTED AND AVAILABLE. 

6590 RUN TESTS 0-13 ON THE FIRST 24K SLICE ABOVE 28K. 
6591 

6592 19. CCONTMMJ CALL "UPMM" TO UPDATE MEMORY MANAGEMENT 

6593 PAR REGISTERS TO POINT TO THE NEXT 24K SLICE OF 

6594 UPPER MEMORY. 
6595 

6596 20. CMAXADR3 REPEAT STEPS 18 ♦ 19 UNTIL ALL 

6597 MEMORY ABOVE 28K IS TESTED. 

6598 

6599 21. CENDPASJ PRINT ERROR HISTORY OF FAILING BITS 

6600 

6601 22. CSE0P3 DISABLE PARITY MODULES. 

6602 PRINT "PASSm" 
6603 

6604 
6605 

6606 [9.23 TEST TITLES 

6607 

6608 SEE THE TEST HEADINGS IN THE LISTING FOR DETAILS ON EACH TEST. 
6609 

6610 TEST 0: TEST FOR PROPER BANK SELECTION 

6611 TEST 1: CHECK DATI/DA70 LINES 

6612 TEST 2: TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

6613 TEST 3: DUAL ADDRESS TEST A 

6614 TEST 4: DUAL ADDRESS TEST B 
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6615 TEST 5: MARCHING I'S AND O'S 

6616 TEST 6: CELLS' VOLATILITY TEST 

6617 TEST 7: SHIFTING DIAGONAL ^ ^ 

6618 TEST 10: READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 

6619 TEST 11: READ RECOVERY LONG GmLLOPING/FAST GALLOPING TEST 

6620 TEST 12: WORST CASE TESTING FOR CORE HEHORY 

6621 TEST 13: WRITE RECOVERY TEST 
6622 

6623 

66:. C10.0] RXOP ft ACTll & APT OPERATION 

6625 

6626 RXDP CHAIN MODE 

6627 

6628 

6629 OPERATION IS IDENTICAL TO STAND ALONE EXCEPT: 

6630 

6631 1. NO "CNKMAA" TITLE IS PRINTED. . ^, 

6632 2. NO TEST 13 PRINTOUTS SUCH AS "TSTIS BNK 00". 

6633 3. THE PROGRAM ALWAYS HALTS ON ERROR. 

6634 4. AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO 

6635 THE RVDP CHAIN MONITOR VIA LOCATION 42. 

6636 5. IF 30K SYSTEM ONLY 28K WILL BE TESTED IN XXDP CHAIN MODE 
6637 

6638 ACT11 

6639 

6640 

6641 OPERATION IS IDENTICAL TO STAND ALONE EXCEPT: 

6642 

6643 1. NO PRINTOUTS EXCEPT ERROR PRINTOUTS. 

6644 2. THE PROGRAM ALWAYS HALTS ON ERROR. 

6645 3. AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO 

6646 THE ACT11 MONITOR VIA LOCATION 42. 

6647 

6648 APT 

6649 

6650 

6651 OPERATION IS SIMILAR TO STAND ALONE EXCEPT: 

6653 1. THE SOFTWARE SWITCH REGISTER BECOMES LOCATION 422 (SSWREG). 

6654 2. AUTO SIZING CAN BE INHIBITED BY SETTING BIT 7 OF BYTE 

6655 LOCATION 421 (SENVM). 

6656 3. ALL PRINTOUTS CAN BE INHIBITED BY SETTING BIT 5 OF 

6657 BYTE LOCATION 421 (SENVM). 

6658 4. ALL ERRORS CAUSE LOCATION 400 (SMSGTY) TO BE SET = 

6659 0001 AND THE PROGRAM HALTS AT LOCATION 6240 (FATHLT). 

6660 LOCATION 402 ($FATAL) CONTAINS THE ERROR NO. IN THE 

6661 LOW BYTE AND THE FAILING MEMORY BANK NO. IN THE HIGH 

6662 BYTE 

6663 NOTE: THE ENVIRONMENTAI MODE BYTE SHOULD BE SET TO 240 WHILE THE SOFTWARE 

6664 ENVIRONMENTAL BYTE SHOULD BE SET TO 001. 
6665 

6666 
6667 

6668 .ENDR 
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6768 




000070 


6769 


000070 


012737 


6770 


000076 


000000 


6771 







SEO 0012 



LIST ME,BIN,SEO,LOC 
TITLE CNKMA 

♦COPYRIGHT (C) MARCH 1982 
♦DIGITAL EQUIPMENT CORP. 
♦MAYNARD, MASS. 0175A 

♦PROGRAM BY DIAGNOSTIC ENGINEERING 

♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC-11-DZQAC-C3). JAN 19. 1977. 

isURsI 60000 :;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



;;TRAP CATCHER OF .+2 AND HALT FOR 0-776 LOCATIONS 



SCOPE =N0P 

.WORD 0 
.SBTTL ACT11 HOOKS 



;F0R ACT/XXDP 



: HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
$ENDAD 
.=52 

.UORD AOOOO 
.=$SVPC 



.-SAVE PC 

:;1}SET L0C.A6 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO 40000 
;; RESTORE PC 



000024 PURDN: 



.=70 

MOV 

HALT 



#PURUP,a«24 
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0001 02 

WW » Wfc 
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6775 
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0001 04 


•013727 


6779 
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000000 
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6781 






6782 




000120 


6783 






6784 






6788 






6789 






6790 






6791 






6792 






6793 






6794 






6795 






6796 






6797 






6798 






6799 
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6812 
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000154 
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004710 
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ACT11 HOOKS 

.=102 
.WORD 2 



000001 000400 



000350 
006112 



N 1 



;DISniSS BEVNT:VER:1 



SEQ 0013 



.=104 

; GET HERE IF AN ILLEGAL TRAP TO LOC. 4 OCCURRED. 

BUSER: HOV S#1,#SnSGTY ;TELL APT FATAL ERROR#000 

HALT ;*ERR0R* TRAP TO LOC. 4 OCCURRED. 

;114 AND 116 ARE RESERVED FOR PARITY TRAP VECTORS. SETUP IN 
.•ROUTINE 'BEGIN". 

.=120 



;* 
;* - 

;* 

• •» 
. 

;* 

• ♦ 
# 

;* 

URTMEM: MOV 

nov 

2$: MOV 
CMP 
BLO 
RTS 



WRITE MEMORY BACKGROUND 



THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO 
THE VALUE STORED AT LOCATION BAKPAT. THE ROUTINE ASSUMES 
THAT R4 IS POINTING TO THE LOWEST LOCATION AND R5 TO THE 
HIGHEST LOCATION TO BE WRITTEN. THE PROGRAM LEAVES THE 
SUBROUTINE WITH RO CONTAINING THE CONTENTS OF BAKPAT. 



R4.R1 

a«BAKPAT.RO 

R0,<R1)+ 

R1.R5 

2% 

PC 



;SET R1 TO LOWEST LOCATION UNDER TEST 
;LOAD RO WITH THE CONTENTS OF LOCATION BAKPAT 
.•STARTING FROM THE LOWEST LOCATION WRITE THE 
.■MEMORY TO BACK GROUND PATTERN 

.•RETURN FROM THE SUBROUTINE 



;PWRUP IS LOADED AT LOC. 144 AND VECTOR 140 INITIALIZED TO BE SPECIFIC 

;T0 11/21 PROCESSOR. 

.=140 

.WORD 170000 .•VER:1 START ADDRESS OF ODT 

.WORD 300 ;VER.-1 PRIORITY 6 



PWRUP: 



MOV 
MOV 
ADD 

JSR 

.ASCI? 

.EVEN 

BR 



a«SAVR6.SP .-RESTORE STACK POINTER 

#PNTMES-BEGIN.RO 



SP.RO 

PC.(RO) 
/P/ 



START 



;6ET THE INDIRECT ADDRESS OF LOCATION TPCRLF 
.•RELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE 
;G0 TO THE TYPE ROUTINE AND TYPE CR. LF AND A "P" 



SERVICE XXDP/ACT11 
SENDAD: JSR PC.(RO) 
NOP 
NOP 
NOP 

BR RESTRT 



RETURN TO ACT11/XXDP MONITOR 
IF QUICK VERIFY=RESET ELSE NOP 
IF QUICK VERIFY=CLR #-1 ELSE INC #0 
IF QUICK VERIFY=BR .-4 ELSE NOP 
REPEAT TEST UNDER ACT11/XXDP 



SWREG: 



.=176 
.WORD 



CNKHA 
CNKMAA 

6832 
6833 
6834 
6835 
6836 
6837 
6838 
6839 
68A0 
6841 
6842 
6843 
6844 
6845 
6846 
6847 

6848 
6849 
6850 
6851 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6867 
(1) 
(2) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
H) 
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000200 
000204 
000210 
000212 
000216 
000220 
000224 
000226 
000232 
000234 
000240 
000246 



000250 
000254 
000260 
000262 
000264 
000266 
000272 
000274 



000024 
000044 



000276 
000276 
J00300 
000302 
000304 



013706 
012703 
005043 
022703 
001374 
105737 
001011 
105737 
100406 
004767 
047103 
000060 



012704 
012703 
012305 
012306 
010600 
012746 
010046 
000002 



000276 
000024 
000200 
000044 
000276 
000276 



COOOOO 
000400 
001440 
002260 
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WRITE MEMORY 



B 2 



BACKGROUND 



SBTTL START AND RESTART ROUTINES 
• RESTART AT 200 TO CLEAR APT TABLES 

*************************************************************** 



000350 


START: 


MOV 


a#SAVR6,SP 


.•SETUP STACK POINTER. 


UUUH 1 C 




MOV 


ttUNIT R3 


■riFAR THF APT MAILBOX FROM 


IS: 


CLR 


-(R3) 


;CLEAR A MAILBOX LOCATION 


000400 




CMP 


#SMAIL,R3 


;DONE? 






BNE 


1$ 


.•BRANCH IF NO 


000042 




TSTB 


a#42 


;ACT11 MODE? 






BNE 


RESTRT 


.BRANCH IF YES 


000405 




TSTB 


a«STESTN*1 


;ARE WE RELOCATED? 






BMI 


RESTRT 


;BR IF YES- SINCE TPCRLF IS 


006344 




JSR 


PCTPCRLF 


.•PRINT TITLE 


046513 040501 




.ASCIZ 


/CNKMAAO/ 








.EVEN 







007744 
000346 



000300 



RESTRT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



#ENDPRG.R4 

«SAVR5.R3 

(R3)+,R5 

(R3)+,SP 

SP.RO 

#300. -(SP) 

RO,-(SP) 



RELOCATED ALSO- 



LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM 
CAUSE R3 TO POINT TO THE LOCATION SAVR5 
RESTORE R5 

AND RESTORE R6 JUST IN CASE IT IS A RESTART 
PLACE THE STARTING ADDRESS OF THE TEST IN RO 
SET HIGH PRIORITY FOR RTI;VER:1 

GO TO "START"-MAY BE RELOCATED. 

IF RELOCATED SEE LOCATION SAVR6 FOR START. 



.SBTTL APT PARAMETER BLOCK 



SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.$X-. 

.*24 

200 

.=44 

SAPTHDR 

.:.$X 



SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



; •*t*tttt**tttttt*ttt*ttt*t**tttt*tt*t*t*tt*tttt**t*tt*t*tt*t**** 

.-SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.•INTERFACE SPEC. 



SAPTHD: 

$HI6TS: .WORD 0 

SMBADR: .WORD SMAIL 

STSTM: .WORD 800. 

SPASTM: .WORD 1200. 



;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
.•.•ADDRESS OF APT MAILBOX (BITS 0-15) 
;;RUN TIM OF LONGEST TEST 

;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
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APT PARAMETER BLOCK 



C 2 



SEO 0015 



(1) 
(1) 
6868 
6869 
6870 
6871 
6872 
6873 
687A 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
689A 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
6911 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 



000306 
000310 



000276 

000277 

000300 

000301 

000302 
000304 
000306 



000315 



000000 
000024 



000405 

000276 

000277 

000300 

000301 

000302 
000304 
000306 



000310 

000310 

000312 

000312 
000312 

000314 
000314 000 



000 



77560 
77562 
77564 
77566 
77S72 
000316 000377 

000320 000000 
000322 000430 



SUNITM: 



.WORD 
.WORD 



REL=$TESTN*1 



MMAVA: 

TYPENB: 

SPRERR: 

SADERR: 

STRTDI 
LOWBNK 
PASFL6 

ENDSTK: 

P6NK: 
DECURD 

TYPCNT 

SAVKBB 

.EVEN 



TKS= 

$K6B= 

$TPS= 

$TPB= 

SRO= 

BAKPAT: 



.=$APTHO 



;; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-$nAlL/2 ;. 'LENGTH MAILBOX-ETABLE (WORDS) 

:IT WILL BE 0 IF THE PROGRAM IS IN THE LOWER 
.•CORE. BIT 7 OF THE BYTE WILL BE SET IF THE 
.-PROGRAM IS IN A RELOCATED STATE AND BIT 5 
;WILL BE SET IF PARITY BITS ARE BEING TESTED 

.■THIS BYTE IS USED TO DETERMINE IF MEMORY 
.-MANAGEMENT IS AVAILABLE OR NOT 



.sMHAVA^I 

.=TYPENB*1 

.=$PRERR*1 

.-SADERR^I 
.sSTRTDI+2 
.=L0WBNK*2 

.=PASFLG*2 
.=ENDSTK*2 



.sDECWRD*2 
.BYTE 0 

.BYTE 0 



1 77560 
177562 
177564 
177566 
177572 
.WORD 



377 



.-THIS BYTE IS USED TO DETERMINE IF THE 
.-TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT 



;THIS BYTE DETERMINES IF THE PROGRAM HAS FOUND 
;A PARITY ERROR 



;THIS BYTE IS USED TO DETERMINE IF THE 
; PROGRAM HAS ENCOUNTERED ADDRESS ERROR 



.-LOWER BYTE OF THIS WORD GIVES THE PASS NUMBER FOR 

.-THE SPECIFIC TEST WHEREAS THE UPPER BYTE 

:HAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES 



.-HOLDS BANK UNDER TEST FOR "TST BNK XX" PRINTOUT. 



THIS BYTE DETERMINES THE NUMBER OF WORDS 
TO BE TYPED 

THIS LOCATION IS USED TO SAVE THE CHARACTER 
HIT BY THE OPERATOR 



SWAPAT: .WORD 
RELBOT: BEGIN-50 



.-BACKGROUND PATTERN WRITTEN TO MEMORY. 



; HOLDS LOWEST TEST ADDRESS WHEN RELOCATED. 
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000000 

vvvwvv 






000000 

Uvvvvv 












000000 


Q7CO 


000^3? 


057776 


















000000 

wwWW WW 






017776 








fi9^^ 


UvW J**w 


000000 


^9^S 








www J"»C 


000000 

Wwwwww 




www 


000000 

wwwwww 




www J"tO 


000000 

Www W 


6939 






6940 






6941 


000350 

WWW V ^ w 


000500 

www ^ W W 


6942 


000352 


000000 

wwwwww 


6943 


000354 

WWW J 


000000 

wwwwww 


6944 


000356 

WWW^ ^W 


000000 

wwwwww 


6945 


000360 

WWW vww 


000000 

wwwwww 


6946 






6947 






6948 






6949 






6956 






6957 






6958 







13:16 PAGE 61-4 

APT PARAMETER BLOCK 



D 2 



SEO 0016 



.-LOCATIONS TO BE MODIFIED IF LIMITS SET BY OPERATOR 

LOUTUO: 0 .-HOLDS BITS 17:16 OF LOW TEST ADDRESS 

LOUADD: 0 .'HOLDS BITS 15:0 OF LOU TEST ADDRESS 



HIGHTUO: 
HIGHADD: 



0 

37776 



.-HOLDS BITS 17:16 OF HIGH TEST ADDRESS 

.HOLDS BITS 15:0 OF HIGH TEST ADDRESS 



SHIMAX: 0 
SMAXM: 17776 



.HOLDS BITS 17:16 OF MAXIMUM AVAILABLE MEMORY 
.-HOLDS BITS 15:0 OF MAXIMUM AVAILABLE MFMORY 



MAXMEM: .WORD .-MAXIMUM CURRENT VIRTUAL MEMORY UNDER TEST 

SAVMAX: .WORD 
SAVR4: .WORD 
SAVR5: .WORD 

SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED. 
SAVR6: .WORD BEGIN .-CONTAINS START ADDRESS WHEN RELOCATED ALSO. 

PARMAP: 0 :MAP OF PARITY MODULES UNDER TEST. 

SAVLOC: 0 .-TEST 6 STORES ERROR INFO HERE 

PARSP: 0 ;SAVE SP DURING PARITY ERROR TRAP. 

PARPS: 0 .-SAVE PSW DURING PARITY ERROR TRAP. 

NOTE-PARSP ♦PARPS ARE NEEDED SINCE THERE IS 
IS NOT ENOUGH ROOM ON THE STACK (500-452) AND 
SO THE STACK MUST BE RESET IN THE PARERR ROUTINE. 
IN THIS CRUDE FASHION. 

;*364-400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FOR ERROR HISTORY PRINTOUT 



6960 
6961 
(1) 
(2) 
vl) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
6962 
6963 
6964 
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13:15 APT PARAMETER BLOCK 



E 2 



SEQ 0017 



000400 
000400 
000402 
000404 
0U0406 
000410 
000412 
000414 
000416 
000420 
000420 
000421 

000422 
000424 
000426 



000430 
000431 



000434 
000435 
000436 
000440 
000441 
000442 
000444 
000445 
000446 
000450 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 

000000 
000000 
000000 



000 
000 



000432 000000 



000 
000 

000000 
000 
000 

000000 
000 
000 

ocoooo 



.=400 

•SBTTL APT MAILB0X-ETA9LE 



.EVEN 
SHAIL: 

SnSGTY: .WORD 

SFATAL: .WORD 

STESTN: .WORD 

$PASS: .WORD 

$OEVCT: .WORD 

$UNIT: .WORD 

$nSGAO: .yORD 

SnSGLG: .WORD 
$E TABLE: 

$ENV: .BYTE 

SENVH: .BYTE 
;; ENVIRONMENT 

SSUREG: .WORD 

SUSUR: .WORD 

SCPUOP: .UORO 

;* 

;* 
;* 
;* 

SMAnSI: .BYTE 
SHTYPI: .BYTE 

;* 
;* 
;* 

SMAORI : 

mnSZ: .BYTE 

$HTVP2: .BYTE 

SnADR2: .WORD 

$NAMS3: .BYTE 

$HTYP3: .BYTE 

$MADR3: .WORD 

$MAMS4: .BYTE 

$MTYP4: .BYTE 

$MADR4: .WORD 
SETEND: 
.MEXIT 



AHSGTV 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AHSGLG 

AENV 
AENVn 
MODE BITS 
ASWREG 
AUSWR 
ACPUOP 



AMANSI 
AHTYPI 



.WORD AMADR1 



AHANS2 
AHTYP2 
AMADR2 
AMAMS3 
AHTYP3 
AHADRS 
AnANS4 
AMTYP4 
ANADR4 



APT MAILBOX 

MESSAGE TYPE CODE 

FA^Ai ERROR NUMBER 

TF^r NUIBER 

F '.v COUNT 

DCVKE COUNT 

I/O UNIT NUMBER 

MESSAGE ADDRESS 

MESSAGE LENGTH 

APT ENVIRONMENT TABLE 

ENVIRONMENT BYTE 



;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-llsCPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /20=03 . 1 1 /40=04 ,11/4 5=05 
11/70=06,PDQ=07.0s10 
BIT lOsREAL TIME CLOCK 
BIT 9:FL0ATING POINT PROCESSOR 
BIT S^MEMORY MANAGEMENT 
;;HIGH ADDRESS, M.S. BYTE 
;;HEH. TYPE,BLK#1 
MEM. TYPE BYTE (HIGH BYTE) 

900 NSEC CORE^OOI 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 
;;HI6H ADDRESS,BLK«1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 
;HIGH ADDRESS,M.S. BYTE 
: MEN. TYPE ,BLK#2 
;MEN.LASr ADDRESS,BLK#2 
;HIGH ADDRESS, M.S. BYTE 
; HEM. TYPE ,BLK#3 
: MEM.LAST ADDRESS, 6LK#3 
;HIGH ADDRESS,M.S.BYTE 
; MEM. TYPE .BLIC*4 
:HEM.LAST ADDRESS,BLK#4 



.SBTTL BEGIN OF AREA TESTED (^20) WHEN PROGRAM RELOCATES. 
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6966 
6967 
o968 
6969 
6970 
6971 
6972 
6973 
697A 
6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
(1) 
(1) 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 



000450 177570 



000500 

000502 
000504 
000510 
000516 
000522 
000526 
000532 
000536 
000540 
000544 
000550 
000552 

000556 
000562 
000564 
000570 
000574 
000600 
000604 
000606 
000610 
000614 
000616 
000620 

000622 
000624 

000626 
000632 

000634 
000636 
000640 
000642 
000644 
000650 
000652 
000654 
000656 
000662 
000666 
000672 
000676 
000700 
000702 



000500 
010706 

005746 
010637 
012737 
005037 
005037 
012700 
012710 
060720 
012710 
105737 
100002 
000167 

005737 
001402 
000167 
012704 
012700 
010037 
005001 
012124 
020127 
103774 
005741 
010011 

020011 
001403 

004767 
000001 

000300 
001370 
005701 
001365 
012701 
014441 
005701 
001375 
012700 
012710 
012740 
005777 
000404 
022626 
012737 



SUR: 



177570 
.=500 





BEGIN: 


MOV 






TST 


A ^ A V ^ M 

000350 




MOV 


000070 000024 




nov 


000300 




CLR 


000314 




CLR 


000114 




nov 


005504 




NOV 






ADD 


000300 




NOV 


000405 




TSTB 






BPL 


000614 

www ■ • 




JNP 


000406 


ONEPAS: 


TST 






BEQ 


000430 




JNP 


007744 


TSTRP: 


NOV 


000377 




NOV 


000316 




NOV 






CLR 




2S: 


NOV 


000400 




CNP 






BLO 




3S: 


TST 




4S: 


NOV 






CNP 






BEQ 


005334 




JSR 



1 



6S: 



000400 



000006 
000300 
000700 
177552 



000176 000450 



SUAB 
BNE 
TST 
BNE 
NOV 

8S: NOV 
TST 
BNE 

SET SUR: NOV 
NOV 
NOV 

2S: TST 
BR 

4$: CNP 
NOV 



F 2 

(4^20) WHEN PROGRAN RELOCATES. 



SEQ 0018 



.-CHANGES TO SUREG IF NO HARDUARE SWITCH REGISTER 



PC.SP 

-(SP) 

SP,afSAVR6 

#PyRDN,a«24 

a#SPRERR 

a#TYPCNT 

«114,R0 

#PARERR-.-6.(R0) 

PC-(RO)* 

#300. (RO) 

a«REL 

ONEPAS 

TSTREL 

a#SPASS 

TSTRP 
SETSTK 
#ENDPRG .R4 
#377. RO 
RO.a#BAKPAT 
R1 

{R1)+.(R4)* 
R1 .#SNAIL 
2S 

-(R1) 
RO.(RI) 

R0,(R1} 
6S 

PC.FATERR 



;SET UP STACK POINTER TO EQUAL BEGIN ADDRESS 



RO 
4S 
R1 
3S 

#SNAIL.R1 

-(R4).-(R1> 

R1 

8S 

#6.R0 
#300. (RO) 
#4S.-(R0) 

asuR 

5$ 

(SP)*,(SP)* 
#SyREG.a«SUR 



:SAVE SP FOR FUTURE USE 

.•PREPARE FOR ANY FUTURE POUER DOWN 



PREPARE TO SETUP PARITY TRAP VECTOR 
TO PARERR 

AND PSU OF 300;VER:1 
IS THIS CODE RELOCATED? 
BRANCH IF NO 

THIS CODE IS RELOCATED SO GET TEST SIZE. 
IS THIS THE FIRST PASS? 

BRANCH IF YES (TEST TRAP CATCHER ADDRESSES) 

GET THE TEST SIZE 
LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAN 



.-SAVE FRON 0000 TQ BEGIN-30 AT END OF PROGRAN FOR NOW 



;PREPARE TO TEST THE TRAP VECTORS 

;CHECK THE TRAP VECTORS FOR THE CAPABILITY 

;0F HOLDING O'S I I'S 

:IS THE DATA OK? 

: BRANCH IF YES 

;*ERROR* REPORT ERROR NESSAGE AND HALT AT FATHLT 
;******ERROR NUNBER 1 •••••• 



;IF UE HAVE NOT REACHED THE LOWEST NENORY LOCATION 
;THEN REPEAT FRON 3S 

.•RESTORE TRAP CATCHER ETC. 



SET UP TINE OUT TRAP PSW;VER:1 
AND TKE RETURN ADDRESS 

DOES THE SWITCH REGISTER POINTED BY SWR EXIST ? 

BRANCH IF YES 

RESTORE THE STACK POINTER 

AND PLACE THE ADDRESS OF THE SWITCH REGISTER 
DESIGNED FOR THE CONPUTERS NOT HAVING HARDWARE 
SWITCH REGISTER AND RUNNING STAND ALONE 
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6 2 

TESTED (♦20) WHEN PROGRAM RELOCATES. 



SEO 0019 



7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
(1) 
(1) 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 



000710 
000714 
000716 



000724 
0)0730 
000736 
000744 
000750 

000752 
000756 
000762 
000764 
000766 
000772 

C00774 
001000 

001002 
001006 
001012 

001014 
001022 



001024 
001026 
001032 
001034 
001040 
001044 



001046 
001052 
001054 
001062 
001064 
001070 



105737 000420 
001403 

012737 000422 000450 



012703 
013737 
013737 
105737 
100021 

012701 
162701 
105711 
001006 
020127 
101371 

004767 
000002 

004767 
004767 
000464 

032777 
001060 



010401 
012710 
011111 
062701 
022701 
101372 



000340 
000330 
000332 
000421 



000451 
000004 



000431 
005166 



006324 
006320 



001072 

000002 
170000 



5S: 



TSTB 
BEQ 

nov 



a«SENV 
APTSIZ 

«SSUREG.a#SUR 



.RIMNING UNDER APT? 
'BRANCH IF NO 

■SET SUR EQUAL TO APT SWITCH REGISTER. 



APTSIZ- THIS ROUTINE WILL SEARCH THE APT MEMORY ETABLE AND WHEN 
A NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADDRESS. 

IF APT DEFINES SIZE THE LOU TEST ADDRESS NUSTsOOOOO. (DUE TO ETABLE FORMAT) 

FLOW; 

IF BLOCK 4 (OR 3,2,1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT. 
ELSE SEND ERROR #3 
NOTE; THE MEMORY TYPE IS IGNORED SINCE ALL TESTS ARE RUN RE(iARDLESS OF MEMORY TYPE, 



APTSIZ: MOV 
000334 MOV 
000336 MOV 
TSTB 
BPL 



1$: 



MOV 

SUB 

TSTB 

BNE 

CMP 

BHI 

JSR 
2 



2t: 



JSR 
JSR 
BRTPSZ: BR 



000100 177426 TRYSR: 



BIT 
BNE 



005737 000042 
001410 

023737 000042 000046 
001404 

162701 010000 
000401 



SLFSIZ: MOV 
MOV 

2S: MOV 
ADD 
CMP 
BHI 



TST 
BEQ 
CMP 
BEQ 
SUB 
BR 



#MAXMEN,R3 ; POINT R3 TO MAXMEM. 
a#HIGHTUO,a«tHIMAX ;IN CASE NO SELF SIZING DONE. 

8#HIGHADD,af$MAXM ;IN CASE NO SELF SIZING DONE. 

afSENVH ;DOES APT ALLOW SELF SIZING? 

TRYSR ;BRANCH IF YES 



#$MTYP4*4,R1 

#4,R1 

(R1) 

2S 

R1 ,#$MTYP1 
IS 

PCFATERR 



PC.GETADR 
PC.GETADR 
TYPSIZ 

#ioo,aswR 

TYPSIZ 



R4,R1 
#4$,(R0) 
(RI).(RI) 
#2,R1 

«170000«R1 
2S 



a#42 

5S 

a#42,a#A6 

5$ 

#10000,R1 
5$ 



.•POINT R1 TO BLOCK TYPE 4(^4) 
; POINT R1 TO NEXT BLOCK TYPE. 
:IS THE BLOCK TYPE NON ZERO? 
.•BRANCH IF YES (MEMORY EXISTS) 
.•ALL APT BLOCK TYPES BEEN CHECKED? 
.•BRANCH IF NO 

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHuT 
;»*****ERROR NUMBER 2****** 

;G0 SET MAXIMUM APT ADDRESS INTO $MAXM ♦ SHIMAX 
;G0 SET MAXIMUM APT ADDRESS IN10 HIGHADD^HIGHTWO 
; TYPE THE SIZE OF MEMORY UNDER TEST 

;USER DEFINED P^cMORY TEST BOUNDARIES?? 
.•BRANCH IF YES (DON'T SIZE MEMORY) 



SETUP R1 AND R4 TO THE LOWEST ADDRESS OF MEMORY 

SET UP RETURN ADDRESS FROM TIME OUT TRAP TO 4$ 

WRITE A MEMORY LOCATION INTO ITSELF AND TRAP IF NXM 

ADD 2 TO THE ADDRESS POINTER 

CHECK IF BEYOND 30K MEMORY BOUNDARY 

KEEP ON SIZING UP THE MEMORY UNTIL NXH TRAP 

(TIME OUT TRAP) IS ENCOUNTERED 

OR 30K BOUNDARY REACHED 

IF NOT XXDP 

THEN CONTINUE 

ELSE IF NOT XXDP CHAINING 
THEN CONTINUE 
ELSE SET MAX. MEN. AT 28K 
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707A 














7075 


001072 


022626 

Wd b> Wft> w 






4S: 


CNP 


7076 


001074 

WW 1 w * ~ 


004767 

WW~ » W ' 


005764 

W w J f W~ 




5$: 


JSR 


7077 














7078 


001100 

WW • ' WW 


105737 


000276 






TSTB 


7079 


001104 


001416 








BEQ 


7080 

■ www 


001 1 06 

WW' ' WW 


012710 


001120 




6S: 


NOV 


7081 


001112 

WW 1 < < fc 


012701 

W 1 b f W 1 


020000 






MOV 


7082 


001116 


000745 








BR 


7083 


001120 


022626 






8S: 


CNP 


708A 


001122 


022701 


160000 






CNP 


7085 














7086 














7087 
7088 


001126 


001005 








BNE 


001 130 


013702 


172352 






NOV 


7089 


001 1 34 


004767 


005730 






JSR 


7090 


001140 


000762 






12$: 


BR 


7091 


001142 


024341 






CNP 


7092 














7093 


001144 


004767 


006072 






JSR 


7094 














7095 


001150 


024343 








CNP 


7096 


001 1 52 


004767 


006064 






JSR 


7097 














7098 


001 1 56 


005743 








TST 


7099 


001 160 

WW * * WW 


005043 








CLR 


7100 


001162 

WW ■ 1 Wfc 


005043 








CLR 


7101 


001164 


012720 


000104 

www ■ \m • 




TYPSIZ: 


NOV 


7102 


001 1 70 


010403 








NOV 


7103 














7104 


001172 


012701 


000324 






NOV 


7105 


001 1 76 


004767 


005370 






JSR 


7106 


001202 


004767 


005536 






JSR 


7107 


001206 


004767 


005272 




TYPMEM: 


JSR 


7108 


001212 


000055 








.ASCIZ 


7109 












.EVEN 


7110 


001214 


004767 


005524 






JSR 


7111 


001220 


012703 


000330 




SETSTK: 


NOV 


7112 


001224 


004767 


006116 






JSR 


7113 














7114 


001230 


010401 








NOV 


7115 














7116 


001232 


062704 


000022 




4$: 


ADD 


7117 














7118 


001236 


005302 








DEC 


7119 


00V40 


002374 








BGE 


7120 


0> ^42 


022737 


167776 


000336 




CNP 


7121 


001250 


00100? 








BNE 


7122 


001252 


062704 


000022 






ADD 


7123 


001256 


010437 


000310 




5$: 


NOV 


7124 


00126? 


005021 






6S: 


CLR 


7125 


001264 


020104 








CNP 


7126 


001266 


101775 








BLOS 


7127 


001270 


012737 


157776 


000340 




NOV 


7128 


001276 


005723 








TST 


7129 


001300 


001005 








BNE 



H 2 

(♦20) WHEN PROGRAN RELOCATES. 



SEO 0020 



RESTORE THE STACK POINTER 

SERVICE NENORY NANAGENENT IF IT IS AVAILABLE 
AND IF IT HAS TO BE TESTED 
SEE IF NENORY NANAGENENT HAS TO BE TESTED 
IF NO NEN. NANG. THEN GO TO 12S 
SET UP THE RETURN ADDRESS FRON TRAP TO 8S 
BEGIN CHECKING NENORY ABOVE 28K 

RESTORE STACK POINTER 

IF R1 DID NOT READ ALL THE L0CA1I0NS POINTED BY 
PAGE ADDRESS REGISTER 6 THEN IT HAS REACHED THE 
NAXINUN AVAILABLE NENORY 
IN WHICH CASE GO TO 12S 

PREPARE TO UPDATE NENORY NANAGENENT REGISTERS 

.OTHERWISE 60 TO UPDATE NEN. NANG. REGISTERS 

CAUSE R3 TO POINT TO LOCATION SNAXN AND R1 

TO THE NAXINUN AVAILABLE NENORY 

60 TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1 

AT LOCATIONS SNAXN AND SHINAX 

NAKE R3 POINT TO HI6HADD 

PLACE THE ADDRESS IN R1 AT LOCATIONS HI6HADD 
AND HIGHTWO 

CLEAR THE LOCATION LOWADD 
AND LOWTWO 

SET UP VECTOR FOR ANY FUTURE TRAP 

SET R3 TO POINT TO THE LOWEST AVAILABLE NENORY 

LOCATION 

TYPE CR/LF 

TYPE LOW TEST ADDRESSE (LOWTWOHOWADD) 
TYPE 



(SP)*.(SP)* 
PC.NENHNG 

a#NNAVA 
12$ 

#8$.(R0} 
#20000. R1 
2$ 

(SP)*.(SP)* 
#1 60000. Rl 

12$ 

a«1 72352. R2 
PC.NNREG 
6$ 

-(R3).-(R1) 

PC. PUT ADR 

-<R3).-(R3) 
PC. PUT ADR 

-(R3) 
-(R3) 
-(R3) 

#6USER.(R0)> 
R4.R3 

#L0WTW0.R1 
PC.PCRLF 
PC.OCTTYP 
PC.STYPE 
/-/ 

PC.OCTTYP 
«HI6HTW0.R3 
PC.$6TSIZ 

R4,R1 

«18..R4 

R2 
4$ 

#1 67776. a«$NAXN .-CHECK IF THIS IS A 30K SYSTEN 
5$ .-BRANCH IF NOT 

f18..R4 .-SAVE ANOTHER BANKS WORTH OF ERROR STACK 

R4,a#ENDSTK :SAVE THE ADDRESS OF THE END OF THE ERROR STACK 

(R1)f .-CLEAR THE ERROR STACK 

R1.R4 

6$ 

#1 57776. a#MAXNEN :SET NAXNEN TO NAXINUN VIRTUAL ADDRESS 

(R3)> .-TESTING NENORY NANAGENENT? 

SAVLDR .-BRANCH IF YES (60 SAVE LOADERS AT TOP OF VIRTUAL NENORY 



.-TYPE HIGHEST TEST ADDRESS (HIGHTWO^HIGHADD) 

;NAKE R3 POINT TO THE HIGH ORDER BITS OF TOP ADDRESS 

; GET THE BITS 13-17 OF THE TOP ADDRESS 

: PLACED IN BITS 0-4 OF R2 

.-SET Rl TO LOWEST TEST ADDRESS 

:APPEND THE ERROR STACK FOR THE NENORY UNDER 
.-TEST TO THE END OF THE PROGRAN 
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71^0 

r 1 


00130? 


0?13?7 


1 70000 

1 • W WWW 






CMP 




001 ^OA 


10500? 








BHIS 


71 


001 ^10 


01 1 365 


00000? 

wwwwwc 






NOV 

• fW w 


71 














71 














71 














f 1 


001 ^14 


004767 


006100 

www 1 WW 




SAVLDR: 


JSP 


7137 


001320 


005723 

WW ^ * b ^ 








TST 


71 38 

f 1 


0013?? 


01 1 305 








nov 


7139 














7140 










;IF ONLY 4K I 


7141 














714? 


001 324 


020527 

Wb V ■ 


01 7776 






CMP 


7143 


001 350 


103416 








BLO 


7144 














7145 


001332 


1 62705 

1 Wb ■ W^ 


000276 

WWWb • w 




3S: 


SUB 

V WV 


7146 


001336 


005737 

WW^» ^» 


000042 

WWWW~ b 






TST 


7147 


00134? 


001406 

WW 1 ~ WW 








BEO 

Wk ^ 


7148 


001344 


023737 

Wb ^ • ^ ■ 


000042 

WWWW~ b 


000046 

WW w w ~ w 




CMP 


7149 


001352 


001402 

WW ' ~ Wb 








BEO 


7150 


001354 


162705 

1 Wb ' w ^ 


005376 

WW ^ ■J * w 






SUB 

«J wu 


71 51 


001 360 

WW 1 ^ww 


0125?4 

W 1 C Jb"* 






2$: 

b ♦ • 


MOV 


715? 


00136? 

WW 1 JVC 


0?0513 

WCW^ 1 J 








CMP 


7153 


001 364 

WW 1 JU** 


01775 








BLOS 




001 366 


012323 

w 1 b .Jb J 






4$: 


MOV 


71 55 


001370 

WW 1 J « w 


010423 

W ' W~b -J 








MOV 


7156 














7157 


001372 


010537 


000346 

WWW \J 




TSTREL: 


MOV 


7158 


0013/6 


004767 


00601 6 




TSTSIZ: 


JSR 


7159 


001402 

WW ■ ~ w t 


005745 








TST 


7160 


001404 

WW 1 ~ w~ 


012703 


000324 




1$: 


MOV 


7161 


001410 

WW ' ~ • w 


005723 

WW ^ ■ b ^ 








TST 


7162 














7163 


001412 

WW 1 ^ 1 fc 


001003 

WW > w w ^ 








BNE 


7164 


001414 


021327 


157776 






CMP 


7165 














7166 


001420 


103411 








BLO 


7167 


001422 


032777 


010000 

V ' wwww 


1 77020 


2$: 


BIT 


7168 


001430 


001003 








BNE 


7169 


001432 

WW ' ~ J%- 


004767 


004530 






JSR 


(1 ) 


001436 


000003 








3 


(1 ) 
7170 


001440 


000167 

w w < w • 


003512 




3$: 


JMP 


7171 


001444 


020423 






4S: 


CMP 


71 72 














7173 














7174 


001446 


103002 








BHIS 


71 75 


001450 

WW 1 ~ ^w 


016304 


1 imt 






MOV 


7176 


001454 


005723 






6S: 


TST 


7177 


001456 


001003 








BNE 


7178 


001460 


021305 








CMP 


71 79 














7180 


001462 


101001 








BHI 


7181 


001464 


011305 








MOV 


7182 


001466 


105737 


000405 




8S: 


TSTB 


7183 


001472 


100014 








BPL 



I 2 



TESTED (♦20) WHEN PROGRAM RELOCATES. 



SEO 0021 



(R3) ,#170000 

SAVLDR 

(R3),2(R3) 



PC.CLRHH 

(R3)* 

(R3),R5 



;IS THE VIRTUAL ADDRESS ABOVE 167776? 

.BRANCH IF YES (GO SAVE LOADERS) 

.-OTHERWISE MAKE THE CONTENTS OF LOCATION MAXMEM 

:EQUAL TO THE MAXIMUM AVAILABLE MEMORY 

:AND PALL INTO SAVE LOADERS. 

; DISABLE THE MEMORY MANAGEMENT UNIT 

.•MAKE R3 TO POINT TO THE LOCATION MAXMEM 

;R5 CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM. 



ING TESTED DON'T SAVE LOADERS 



R5. #17776 
4$ 

#276. R5 

a«42 

2$ 

a#42.a#46 

2$ 



.■ONLY TESTING 4K MAX? 

.•BRANCH IF YES (DON'T SAVE LOADERS) 

.•PREPARE TO SAVE 300 BYTES OF THE LOADERS 
:IF RUNNING UNDER XXDP 

THEN CONTINUE 
: ELSE IF NOT UNDER XXDP CHAIN MODE 
THEN CONTINUE 



#<1502.«2>-276.R^ ; ELSE SAVE 1500. WORDS FOR XXDP CHAIN NODE 

(R5)^.(R4)^ ;SAVE LOADER 
R5.(R3) 
2$ 

(R3)*.(R3)* 
R4,(R3)* 



R5.a#SAVR5 

PC.CLRMM 

-(R5) 

#L0WTW0.R3 
(R3)* 

2$ 

(R3). #157776 
4$ 

#10000.aSWR 
3$ 

PC.FATERR 



TSTMM 
R4.(R3)* 



6$ 

-2(R3).R4 

(R3)* 

8S 

(R3).R5 
8S 

(R3).R5 

a#REL 

10S 



SAVE THE CONTENTS OF LOCATION MAXMEM IN SAVMAX 
AND THE CONTENTS OF R4 AT SAVR4 

SAVE HIGHEST VIRTUAL ADDRESS^2 

GO TO DISABLE MEMORY MANAGEMENT UNIT 

SET R5 BACK TO HIGHEST VIRTUAL ADDRESS 

PREPARE TO LOAD R4 AND R5 WITH THE MEMORY BOUNDRIES 

IF THE BITS 16.17 OF THE LOWEST LOCATION UNDER 

TEST ARE NON ZERO 

THEN GO TO 2S 

IF THE LOWEST LOCATION UNDER TEST IS HIGHER THAN 
157776 THEN GO TO TEST MEMORY MANAGEMENT 

IS MEMORY MANAGEMENT SELECTED? 
YES ALL IS WELL 

*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
******ERR0R NUMBER 3***«** 



60 TO TEST MEMORY MANAGEMENT 

COMPARE TOP OF PROGRAM (WITH SAVED LOADERS) 

LOWEST LOCATION UNDER TEST 



TO 



ADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEST 

IF BITS 16-17 OF HIGHEST LOCATION TO BE TESTED 

ARE NON ZERO THEN GO TO 8$ 

OTHERWISE SEE IF THE HIGHEST LOCATION TO BE 

TESTED IS HIGHER THAN HIGHEST VIRTUAL ADDRESS 

IF SO THEN GO TO 8$ 

MODIFY R5 

ARE WE RELOCATED.? 

BRANCH IF NO 
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71 8A 

7185 
7186 
7187 
7188 
7189 
7190 
7191 
(1) 
(1) 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203 
7204 
7205 
72C6 
7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7*>26 
7227 
722% 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 



001474 
001500 
001504 
001506 

001512 
001514 
001516 
001522 

001524 
001530 
001532 



01 3704 
020527 
103402 
012705 

020405 
103403 
004767 
000004 

012703 
011343 
062713 



000322 
017776 

017776 



004444 

000342 
000002 



001536 005725 



001540 
001542 
001544 
001546 
001550 
001554 
001560 
001564 
001566 
001570 
001574 



001600 
001604 

001610 
001612 

001614 
001616 
001620 
001622 



001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 



010500 
005040 
020004 
101375 
012702 
004767 
012702 
012212 
000312 
017702 
042702 



000001 
005740 
000316 



176654 
17^760 



005037 000306 
110237 000404 

010401 
010400 

010403 
006302 
060702 

066207 000004 



000102 
000340 
000440 
000550 
001016 
001126 
001274 
001430 



13:16 PAGE 62-4 
BEGIN OF AREA 

HOV 
CHP 
BLO 
NOV 



J 2 

TESTED (♦20) WHEN PPOGRAH RELOCATES. 



SEQ 0022 



9S: 



10$: 



CMP 
BLO 
JSR 
4 



nov 
nov 

HEMTST: ADD 
TST 



i»REL60T«R4 
R5. #17776 
9S 

#17776,R5 

R4,R5 
10$ 

PC.FATERR 



«SAVnAX,R3 
(R3).-(R3) 
#2,(R3) 



(R5>* 

; CLEAR MEMORY UNDER TEST 



CLRMEM: 
2$: 



MOV 

CLR 

CMP 

BHI 

MOV 

JSR 

MOV 

MOV 

SWAB 

MOV 

BIC 



R5,R0 
-(RO) 
R0,R4 
2$ 

#1,R2 

PC, PARITY 

«BAKPAT,R2 

(R2)*,(R2) 

(R2) 

aSUR.R2 

#1 77^60, R2 



;SET BOTTOM TEST ADDRESS WHEN RELOCATED. 
;ARE WE RELOCATED IN BANK 0? 
'BRANCH IF YES 

■ELSE SET HIGH MEMORY UNDER TEST=4K 

;IS LOU LiMIT LOWER THAN HIGH L MIT? 
'BRANCH IF YES 

:*ERROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 
;**«*««ERROR NUMBER 4****»* 



.•RESTORE THE CONTENTS OF MAXMEM 

;MAKE THE CONTENTS OF MAXMEM = MAXIMUM AVAILABLE 

; MEMORY *2 

.-AND SET R5-MAX MEM0RY«2 



;MOVE HIGH ADDRESS TO RO 

;BEGIN CLEARING THE MEMORY FROM THE TOP 

:UNTIL THE BOTTOM IS REACHED 

;SET R2 TO ENABLE PARITY MODULE CODE. 
.•ENABLE PARITY IF WANTED AND AVAILABLE. 

;URITE SWAPPED BAKPAT IN LOCATION SWAPAT 

.•LOAD R2 WITH THE OPTIONS STORED AT $SWRE6 

.•ONLY LEAVE THE LOWER 4 BITS OF $SWREG IN R2 TO GO TO 

;THE TEST # SPECIFIED CDEFAULT IS TEST#03 



; ENTER HERE FROM TSTSCP ROUTINE AT END OF SUBTEST 
CONT: 



LOOP: 



TBL: 



CLR a#PASFLG 

MOVB R2,af$TESTN 

MOV R4,R1 

MOV R4,R0 

MOV R4,R3 

ASL R2 

ADD PC.R2 

ADD TBL-.(R2},PC 



TSTO-TBL 
TST1-TBL 
TST2-TBL 
TST3-TBL 
TST4-TBL 
TST5-TBL 
TST6-TBL 
TST7-TBL 



;INIT SUBTEST PASS FLAG. 
:SET UP $TESTN WITH THE TEST NUMBER GOING 
;T0 BE EXECUTED 

.-LOAD R1 WITH THE LOWEST LOCATION UNDER TEST 
.•PLACE THE ADDRESS OF THE LOWEST LOCATION UNDER 
.-TEST IN RO 
;AND IN R3 



;60 TO THE TEST # 
.•STORED IN BITS 0-3 OF SWITCH REGISTER 



.•RELATIVE 
.•RELATIVE 
;RELATIVE 
.•RELATIVE 
.•RELATIVE 
.•RELATIVE 
.•RELATIVE 
.•RELATIVE 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



0 
1 
2 
3 
4 
5 
6 
7 



c3Jl!iA.Pn''''2l°OE?'t2 13:?5"''' ^'^IeGiJ'Ef'Jre'a TESTED (.20) WHEN PROGRAM RELOCATES. 



SEO 0023 



7238 001646 

7239 001650 
72A0 001652 

7241 001654 

7242 001656 
7243 

7244 
7245 
7246 
7247 



001654 
002204 
002256 
002530 
003156 



TST10-TBL 
TST11-TBL 
TST12-TBL 
TST13-T8L 
RELOC-TBL 



RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 



TEST # 10 

TEST 0 11 

TEST « 12 

TEST # 13 



RELATIVE ADDRESS OF ROUTINE 'RELOC 



;R5 IS POINTING TO THE TOP OF THE MEMORY TO BE TESTED*2 

;R4 t RO ARE POINTING TO THE LOWEST ADDRESS OF MEMORY TO BE TESTED 
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13:16 PAGE 62-6 
SCOPE ROUTINE 



L 2 



7? 5? 








f ^ J J 
































7257 








7258 
















7260 








7261 








7262 








7263 










001660 


105737 


000420 

w W W^ fc w 




001664 


001002 

— WW 1 WWb 




7266 


001666 


004767 


006002 

W www Wb 


7267 








7268 


001672 


1 1 3702 


000404 

WWW" w^ 


7269 








7270 








7271 


001676 


005237 


000410 


7272 


001702 


032777 


002000 


7273 


001710 


001401 




7274 


001712 


000000 




7275 








7276 


001714 


032777 


040000 


7277 
7278 


001722 


001332 




001724 


105202 




7279 


001726 


000724 





SCOPE ROUTINE 



TSTSCP: TSTB 
BNE 
JSR 



176540 



INC 
BIT 
6EQ 
SUHALT: HALT 



176526 TSTGO: 



BIT 
BNE 
INC6 
BR 



PROGRAM COMES TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND 
IF CNTRL-C TYPED GOTO ERROR HISTORY TYPE ROUTINE. 
IF SR= 2000 (BIT10) THEN HALT 

IF SR= 40000 (BIT14) THEN LOOP ON TEST DEFINED BY SR BITS<3:0> 
ELSE CONTINUE TO NEXT TEST. 



amNv 

CNTSCP 
PC.CHECKC 



CNTSCP: MOVB a#STESTN«R2 



MSDEVCT 

#2000,aSUR 

TSTGO 



#40000, asuR 

LOOP 

R2 

CONT 



ARE UE RUNNING UNDER APT? 

IF so THEN GO TO CNTSCP 

TEST FOR CONTROL-C AND IF TYPED 60 

PRINT ERROR HISTORY AND HALT AT FATHLT. 

PLACE THE TEST NUMBER IN THE LOWER BYTE OF R2 

SINCE THERE ARE LESS THAN 377 TESTS UPPCR BYTE 

OF R2 WILL BE 0 

TELL APT UE ARE STILL RUNNING OKAY 

IS THE PROGRAM GOING TO HALT AFTER EACH TEST? 

IF NOT THEN GO TO 2S 

HALT AT END OF TEST SWITCH SET. 

IS THE PROGRAM GOING TO LOOP ON TEST 

IF SO THEN GO TO THE STARTING OF THE SAME TEST 

;G0 TO CONT AND CONTINUE EXECUTING THE NEXT TES 



CNKMA 


MACYll 


V 1 WHO/ 


CNKHAA.P11 




7292 






(3) 






(4> 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(3) 






(2) 


001730 


1057^7 


(2) 






7293 


001734 


WW 1 ■•w J 


7294 


001736 


004767 

Vw~ • U • 


(1) 


001742 




(1) 






7295 


001744 


012703 


7296 


001750 


010401 

W ' W*»W 1 


7297 


001752 


010510 

W I 1 w 


7298 


001754 


0?0001 

WCVWW 1 


7299 


001756 


001417 

WW 1 T 1 • 


7300 


001760 


0057l1 

WW ^ r 1 1 






wv 1 Jw 


7302 


001764 


0P0511 

wCw J 1 1 


7303 






7304 






7305 


001 766 


001004 

WW 1 WW" 


7306 


001 770 


012767 


(1) 
7307 


001776 


000403 

VVwf V J 


7308 


002000 




(1) 


002000 


012767 


(1) 






7309 


002006 


010046 

w ' ww~w 


7310 


002010 


105237 

1 W^C J > 


7311 


002014 


000407 

w w v~ w • 


7312 


002016 


0P031 1 


7313 


002020 


001411 

WW 1^11 


7314 


002022 


012767 

W lb* w ■ 


(1) 






7315 


002030 


010046 

W 1 ww~w 


7316 


002032 


010300 

W 1 w^ww 


7317 


002034 


004767 

W V~ ■ VP • 


7318 


002040 


000000 

WWWW WW 


7319 


002042 


012600 


7320 






7321 


002044 


013706 

W I ^ * WW 


7322 


002050 


062701 

WWfc ' w ■ 


7323 






7324 






7325 


002054 


020105 


7326 






7327 


002056 


103736 


7328 







J7-DEC-82 
5:15 
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TO TEST FOR PROPER BANK SELECTION 



SEQ 0025 



;*TEST 0 TEST FOR PROPER BANK SELECTION 

;*(1) THIS TEST ASSUMES THAT THE NENORY IS IN A STATE 

* OF ALL O'S AND RO HAS THE ADDRESS OF THE LOWEST 

* LOCATION UNDER TEST 

*(2) IT CHECKS FOR PROPER BANK SELECTION BY WRITING 

* rS IN A LOCATION AND CHECKING FOR O'S IN THE SAME 

* LOCATIONS OF OTHER 4K BANKS OF THE MEMORY 

* CLE. LOCATIONS LIKE 7766 AND 27766 ETC.] 
*(3) THIS TEST ALSO CHECKS TO SEE THAT NONE OF THE NUN EXIST- 

* IN6 BANK RESPOND WHEN THEY ARE ADDRESSED 



000404 
004224 
M7777 



TSTO: TSTB 

BEQ 
JSR 
5 



1$: 
2S: 



000006 000042 

000007 000032 
000301 

000010 000010 
003S70 



000350 
020000 



3$: 

10$: 

4S: 



11$: 
12$: 



5$: 



MOV 
MOV 
NOV 
CMP 
BEQ 
TST 
BEQ 
CMP 



BNE 
MOV 

BR 

MOV 

MOV 

INC6 

BR 

CMP 

BEQ 

MOV 

MOV 

MOV 

JSR 

.WORD 

MOV 

MOV 
ADD 



CMP 
BLO 



a»$TESTN 
.♦10 

PCSEQERR 



#1 77777, R3 

R4,R1 

R3,(R0) 

R0.R1 

4$ 

(R1) 

5$ 

R3,(R1) 



3$ 

«6J2$ 
10$ 

#7.12$ 

RO,-(SP) 
a#$ADERR 
11$ 

R3.(R1) 
5$ 

#10,12$ 

RO.-(SP> 
R3,R0 
PC. ERROR 

(SP)*,RO 

a#SAVR6.SP 
#20000.R1 



R1.RS 
2$ 



.CHECK FOR PROPER TEST SEQUENCE 



;*ERR0R* REPORT ERROR MESSAGE AND HmL; mT FATHLT 
;******ERROR NUMBER a****** 



R1 s ADDRESS OF LOWEST LOCATION OF MEMORY UNDER TEST 
SET ALL THE BITS AT (RO) 

IS RO POINTING TO THE SAME MEMORY LOCATION AS R1 
IN WHICH CASE CHECK FOR ALL I'S AT (R1) 
OTHERWISE CHECK (R1) FOR ALL O'S 

IF R1 IS NOT EQUAL TO RO AND (R1) 
DOES NOT CONTAIN ALL O'S THEN 
CHECK TO SEE IF (RO) = (R1) 

*ERROR* SETUP ERROR NO. IN 12$ 
******ERROR NUMBER #6****** 



*ERROR* SETUP ERROR NO. IN 12$ 
******ERROR NUMBER #7»»»»*» 

SAVE RO On stack 

AN ADDRESSING ERROR IS SUSPECTED 



CHECK (R1) FOR ALL 1'S 

*ERROR* SETUP ERROR NO. 
******ERROR NUMBER #10« 
SAVE RO ON STACK 



IN 12$ 



60 TO THE ERROR SUBROUTINE 

ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 
RESTORE RO 

RESTORE THE STACK POINTER 

CAUSE R1 TO POINT TO THE SAME CHIP 

LOCATION IN THE NEXT 4K BANK OF MEMORY 

BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R1 

COMPARE R1 WITH THE HIGHEST MEMORY 

LOCATION WHICH IS STORED IN R5 

IF R1 LESS THAN R5 THEN REPEAT THE TEST FROM 2$ 
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16 
TO 



PAGE 



N 2 

62-8 

TEST FOR PROPER BANK SELECTION 



SEO 0026 



7329 
7330 
7331 
733 
733 
7334 
7335 
7336 
7337 
7338 
7339 
73A0 
7341 
7342 
7343 
7344 
7345 
(1) 
(1) 
7346 
7347 
7348 
7349 
7350 
7351 
735? 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 



002060 105737 000421 

002064 100432 

C02066 032777 000100 176354 

002074 001026 

002076 02*^127 157776 

002102 101016 

002104 020137 000340 



002110 
002112 
002116 
002122 
002126 
002130 
002132 
002136 



002140 
002144 
002150 
002152 



002162 
002164 



103755 
012702 
012712 
012742 
060712 

onii'i 

004767 
000011 



000006 
000300 
177714 



004030 



012702 000004 
012722 000006 
005012 
005010 



002154 062700 020000 



002160 020005 



1036/2 
000635 



6S: 
8S: 



ENDO: 



TSTB 8«$ENVN 

BMI 8$ 

BIT #ioo,asuR 

BNE 8S 

CMP R1 .#157776 

BHI 6$ 

CMP Rl,afNAXMEM 

BLO 5$ 

MOV #6.R2 

MOV #300, (R2) 

MOV #5*-.-6,-(R2) 

ADD PC-(R2) 

MOV (R1),(R1) 

JSR PCFATERR 
11 



MOV #4,R2 

MOV #6,(R2)* 

CLR (R2) 

CLR (RO) 

ADD #20000, RO 



CMP R0,R5 

BLO U 

BR TSTSCP 



HAS APT INHIBITED SIZING? 

BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY) 
HAS USER INHIBITED SIZING? 

BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY) 

SEE IF R1 HAS CROSSED 28IC BOUNDRY OF VIRTUAL ADDRESS 
IN WHICH CASE GO TO 6$ 

SHOULD BE LEFT AS IS FOR 30K SYSTEMS (WHICH USE 16K CHI 
IS R1 LOWER THAN THE MAXIMUM AVAILABLE 
MEMORY ? 

IF SO THEN GO TO 5$ 

MAKE R2 POINT TO TRAP VECT0R*2 FOR NXM 

SET PSW TO 300;VER:1 

SET UP RETURN ADDRESS FROM TRAP TO 5S 

;TRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP) 
;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 11 •••*•• 



.-RESTORE TRAP VECTOR 



CAUSE RO TO POINT TO THE SAME CHIP 

LOCATION IN THE NEXT AK MEMORY BANK 

BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN RO 

COMPARE RO WITH THE HIGHEST MEMORY 

LOCATION WHICH IS STORED IN R5. 

IF RO LESS THEN REPEAT THE TEST 
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7366 






(3) 






(A) 






(A) 






(3) 






(2) 


002166 


122737 


(2) 






7367 






7368 






7369 


002174 


001403 


7370 


002176 


004767 


<1 ) 


002202 


000012 


(1) 






7371 


002204 


012700 


7372 


002210 


010002 


7373 


002212 


010011 


737A 


002214 


02001 1 


7375 


002216 


001403 


7376 


002220 

VWb w W 


004767 


(1) 

(1) 


002224 


000013 


7377 






7378 


002226 


005702 


7379 


002230 


001406 


7380 


002232 


006300 


7381 






7382 


002234 


103366 


7383 






7384 


002236 


005002 


7385 


002240 


012700 


7386 


002244 


000762 


7387 






7388 


002246 


000261 


7389 


002250 


006100 


7390 


002252 


103757 


7391 






7392 


002254 


062701 


7393 






7394 


002260 


020105 


7395 


002262 


103750 


7396 


002264 


000737 


7397 







;*TEST 1 



000001 000404 TST1 ; 



003764 
000001 

Ou^404 



1$: 

2$: 
3$: 



4$: 



177776 



5$: 



020000 



;*(1) 



END1: 



CMPB 



BEQ 
JSR 

12 

MOV 
MOV 
MOV 
CMP 
BEQ 
JSR 
13 



TST 
BEQ 
ASL 

BCC 

CLR 
MOV 
BR 

SEC 
ROL 
BCS 

ADD 

CMP 
BLO 
BR 



B 3 

DI/DO LINES 



SEO 0027 



CHECK DI/OO LINES 

THIS TEST CHECKS THE DATI/DATO LINES BY SHIFTING 
A 1 IN THE UORD DIRECTION 



«1,a#STESTN .-CHECK FOR PROPER TEST SEQUENCE 



.♦10 

PCSEQERR 



#1.R0 

R0,R2 

R0«(R1) 

R0«(R1) 

4$ 

PC, ERROR 



:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;*«****ERROR NUMBER 12****** 



.-SET R2=1 

;MOV 1 AT LOCATION (R1) 

.•COMPARE R1 WITH THE CONTENTS OF LOCATION (R1) 

;*ERROR* REPORT ERROR MESSAGE 
;******ERROR NUMBER 13****** 



R2 
5$ 
RO 

2$ 

R2 

#1 77776. RO 
2$ 



RO 
2$ 

f20000.R1 

R1.R5 
1$ 

ENDO 



ARE UE SHIFTING A 0 IN DATA DIRECTION? 
IF SO THEN GO TO 5$ 
SHIFT THE 1 BROUGHT IN AT 1$ IN 
DATA DIRECTION 

IF THE 1 HAS NOT BEEN SHIFTED THRU 
THE 16 DATA BITS THEN REPEAT FROM 2$ 
INITIATE SHIFTING OF 0 IN DATA DIRECTION 



SET C BIT 

SHIFT A 0 16 TIMES IN DATA DIRECTION 
IF THE 0 HAS NOT BEEN SHIFTED THRU 
THE 16 DATA BITS THEN REPEAT FROM 2$ 
OTHERWISE GO TO THE NEXT BANK OF 
4K MEMORY AND REPEAT THE TEST 
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7406 
(3) 

(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
7407 
7408 
7409 
(1 ) 
(1) 
7410 
7411 
7412 
7413 
7414 
7415 
7416 
7417 

7418 
7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
(1) 
(1) 
7427 
7428 
7429 
7430 
7431 
7432 
7433 
7434 
7435 



7-DEC-82 

1:15 



13:16 
T2 



PAGE 



62-10 

TEST MEnORY 



C 3 

FOR HOLDING DATA AND BYTE SELECTION 



SEQ 0028 



;*TEST 2 TEST HEHORY FOR HOLDING DATA AND BYTE SELECTION 

;*<1) THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY 

;* OF HOLDING 1'S AND O'S BY WRITING A BACKGROUND 

;* OF BAKPAT AND READING IT 

:*(2) MEMORY IS WRITTEN USING A BYTE AT A TIME 

:*C3} STEPS 1 ft 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 



002266 


122737 


000002 


000404 TST2: 


CMPB 


#2,a«$TESTN 


.CHECK FOR PROPER TEST SEQUENCE 




UU 1 Ml/ J 






DC W 


.♦10 


;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 




\J\jHfOf 


nnxAAL 




KB 

J On 


PCSEQERR 








14 




;******ERROR NUMBER 14**»»** 




U 1 Jf uu 


UUUO 1 0 




nuv 


a4rBAKPAT,R0 






1 1 UUc 1 






Mnt/R 


R0,CR1)* 






1 1 7751 
1 1 3r c 1 






Mnun 
nuvD 


a#BAKPAT^1«(R1)*; WRITE THE MEMORY WITH THE WORD STORED IN BAKPAT 










rMP 


R1,R5 






10^771 






Ri n 


IS 




002322 


020041 




2$: 


CMP 


R0,-(R1) 


;TEST THE MEMORY TO SEE IF IT CONTAINS 










;THE WORD STORED IN BAKPAT 




UU 1 *• 1 o 








8$ 






nA?7ni 

UOc' w 1 






ADD 


#2.R1 


(RD; CHECK FOR BYTE SELECTION PROBLEM 


01/2332 


123741 








a#BAKPAT*1.- 


\J\JC J JO 


\J\J 1 hUc 






RFQ 


4$ 




002340 


120041 






CMPB 


R0,-(R1) 


;AGAIN CHECK FOR BYTE SELECTION PROBLEM 


002342 


001002 






BNE 


6$ 


002344 


105237 


000301 


4S: 


INCB 


a#SADERR 


.•PREPARE TO INFORM THAT IT IS ADDRESSING ERROR 


002350 


042701 


000001 


6$: 


BIC 


#1«R1 


.•MAKE THE ADDRESS IN RI EVEN 


002354 


004767 


003250 




JSR 


PC. ERROR 


;*ERROR* REPORT ERROR MESSAGE 


002360 


000015 






15 




;******ERROR NUMBER 15****** 


002362 


020104 




8S: 


CMP 


R1,R4 


;KEEP ON TESTING THE MEMORY UNTIL 


002364 


101356 






BHI 


2$ 


:R1 EQUALS THE LOWEST ADDRESS 


002366 


000337 


000316 




SWAB 


a#BAKPAT 


.•CHANGE THE DATA PATTERN 


002372 


001744 






BEO 


1$ 


.*IF Th£ DATA PATTERN DOES NOT HAVE LOW 










: BYTE -0 THEN FALL THRU 


002374 


000733 




END2: 


BR 


END1 





;THE TEST LEAVES BAKPAT LOCATION THE SAME AS IT WAS IN THE BEGINNING 
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7447 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 

(2) 002376 122737 000003 000404 

(2) 

7448 002404 001403 

7449 002406 004767 003554 
(1> 002412 000016 

(1) 

7450 002414 005003 

7451 002416 004737 000120 
7452 

7453 002422 005002 

7454 002424 050302 

7455 002426 020204 

7456 002430 103465 

7457 002432 020205 

7458 002434 103077 

7459 002436 000312 
7460 

7461 002440 005001 

7462 002442 050301 

7463 002444 020104 

7464 002446 103445 

7465 002450 020105 

7466 002452 103053 

7467 002454 020102 

7468 002456 001431 

7469 002460 020011 
7470 

7471 002462 001437 

7472 Q02464 012767 000017 000032 
(1) 

7473 002472 010046 

7474 002474 000316 

7475 002476 022611 
7476 

7477 002500 001003 

7478 

7479 

7480 

7481 002502 012767 000020 OOOOU 

(1) 

7482 002510 105237 000301 

7483 002514 010046 

7484 002516 010200 

7485 002520 004767 003104 

7486 002524 000000 



D 3 



)RESS TEST A 



SEO 0029 



DUAL ADDRESS TEST A 

THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A 
BACK GROUND OF BAKPAT. 

STARTING FROn THE LOWEST LOCATION IN THE BANK THE TEST WRITES A 

LOCATION WITH SWAPPED BAKPAT 

READS THE HEHORY FOR PROPER CONTENTS 

SHIFTS A 1 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1-3 
REPEATS STEP 1-4 FOR EACH 4K BANK 



«3,a«STESTN 

.♦10 

PCSEQERR 



R3 

PCafURTPIEN 

R2 

R3,R2 

R2,R4 

16$ 

R2,R5 

20S 

(R2) 

R1 

R3,R1 

R1,R4 

12i 

R1,R5 

15i 

R1-R2 

lOi 

R0,(R1) 
12S 

#17,22$ 

RO,-(SP) 
(SP) 

(SP)«,(R1) 
9$ 



#20,22$ 

a#$ADERR 

RO,-(SP) 

R2,R0 

PCERROR 



.•CHECK FOR PROPER TEST SEQUENCE 



;*£RR0R* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;ftftftftft*ERROR NUMBER 16****** 



WRITE MEMORY WITH THE BACKGROUND STORED 
AT LOCATION BAKPAT 

MAKE R2 POINT TO THE MEMORY BANK POINTED BY R3 
IF R2 IS LESS THAN R4 
THEN DO NOTHING 

IF R2 IS HIGHER THAN THE HIGHEST LOCATION TO BE 
TESTED THEN EXIT THE TEST 
OTHERWISE WRITE THE COMPLEMENT OF BAKPAT IN 
THE LOCATION POINTED BY R2 



;IF R1 IS POINTING TO A LOCATION LOWER THAN R4 
;THEN GO TO 12$ 



CHECK THE MEMORY FOR CORRECT DATA 

IF R1 IS NOT = TO R2 THEN (R1) SHOULD HAVE 

THE SAME WORD AS BAKPAT 

IN WHICH CASE GO BACK TO 12$ 

*ERROR* SETUP ERROR NO. IN 22$ 

ftfttftftftERROR NUMBER #17*t**** 

PLACE RO ON THE STACK 

IF (R1) IS NOT = RO TM^N SEE IF IT IS SAME 
AS A SWAPPED RO 

IF NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM 
FOR THE BITS THAT ARE DIFFERENT IN RO AND (R1) 
OTHERWISE THERE IS DUAL ADDRESSING FOR THE 
ENTIRE WORD 

*ERROR* SETUP ERROR NO. IN 22$ 
••••**ERROR NUMBER #20***t** 
ADDRESSING PROBLEM IS DETECTED 
SAVE RO 

SET RQsGOOD ADDRESS FOR ERROR REPORT 
GO TO THE ERROR SUBROUTINE 

ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 
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16 PAGE 
T3 



7487 
7488 
7489 
7490 
7491 
7492 
7493 
7494 
7495 
7496 
f1) 
7497 
7498 
7499 
7500 
7501 
7502 
7505 
7504 
7505 
7506 
7507 
7508 
7509 
7510 
7511 
7512 
7513 
7514 
7515 
7516 
7517 
7518 
7519 
7520 
7521 
7522 
7523 



002526 012600 

002530 010011 

002532 020037 000^16 

002536 001411 

002540 000407 

002542 000300 

002544 020011 

002546 001404 

002550 012767 000021 177746 

002556 000745 

002560 000300 

002562 040301 

002564 005701 

002566 001001 

002570 005201 

002572 006101 

002574 020127 020000 

002600 103720 

002602 000312 

002604 040302 

002606 005702 

002610 001001 

002612 005202 

002614 006102 

002616 020227 020000 

002622 103700 

002624 060203 

002626 020337 000340 

002632 103673 

002634 000337 000316 

002640 001656 

002642 000654 



10$: 



11$: 
12$: 



13$: 



15$: 
16$: 



18$: 



20$: 
END3: 



62-12 
DUAL AD 

nov 

NCV 

CHP 

BEO 

BR 

SWAB 

CHP 

BEO 
MOV 

BR 

SWAB 

BIC 

TST 

BNE 

INC 

ROL 

CMP 

BLO 

SWAB 

BIC 

TST 
BNE 
INC 
ROL 
CHP 

BLO 
ADO 
CMP 

BLO 

SUAB 

BEO 

BR 



» 



E 3 



>RESS TEST A 

(SP)*.RO 

R0,{R1) 

R0.a#BAKPAT 

12i 

11$ 

RO 

R0,(R1) 
11$ 

«21,22$ 

8$ 

RO 

R3,R1 

R1 

13$ 

R1 
R1 

R1 ,#20000 
7$ 
(R2) 
R3«R2 

R2 
18$ 
R2 
R2 

R2. #20000 
6$ 

R2,R3 

R3«a#nAXMEH 
4$ 

a#BAKPAT 

TST3 

END2 



SEO 0030 



RESTORE RO 
RESTORE (Rl) 

IF THE CONTROL CAfOE HERE FROM 15$-2 THEN 
RETURN TO 11$ 

MAKE RO SAME AS SWAPPED BAKPAT 

IF R1 = R2 THEN (Rl) SHOULD CONTAIN A WORD 

EOUAL TO SWAPPED RO 

IN WHICH CASE 60 BACK TO 11$ 

*ERROR* SETUP ERROR NO. IN 22$ 

******ERROR NUMBER #21 

AND GO TO 8$ 

RESTORE RO TO BAKPAT 

TAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN Rl 
IF Rl IS 0 THEN PLACE A 1 IN Rl 
OTHERWISE GO TO 13$ 



IF Rl IS LESS THAN A 4K BOUNDRY 
THEN REPEAT FROM 7$ 
RESTORE (R2) TO BAKPAT 

TAKE OUT THE BANK ADDRESS FROM THE ADDRESS 
STORED IN R2 

IF R2 = 0 THEN MOVE A 1 TO R2 
OTHERWISE GO TO 18$ 

SHIFT A ONE IN THE ADDRESS WORD 

IS THE ADDRESS IN R2 MORE THAN THE BOUNDRY 

OF 4K 

IF NOT THEN GO TO 6$ 

OTHERWISE MAKE R3 POINT TO THE NEXT 4K BANK 
IF R3 IS POINTING TO A BANK THAT IS LOWER 
THAN MAXMEM 
THEN REPEAT FROM 4$ 

.•REPEAT THE TEST WITH SWAPPED BAKPAT ONLY If 
:THE LOWER BYTE OF BAKPAT IS 0 





MACYI 1 


30(1046) 


CNKHAA. 


P11 


27-DEC-82 


7530 






(5) 






(4) 






(4) 






(4) 






(5) 






(2) 


002644 


122737 


(2) 






7551 


002652 


001403 


7532 


002654 


004767 


(1) 


002660 


000022 


(1) 






7533 


002662 


005003 


7534 


002664 


010100 


7535 


002666 


005703 


7536 


002670 


001401 


7537 


002672 


005100 


7538 


002674 


010021 


7539 


002676 


020105 


7540 


002700 


103771 


7541 






7542 


002702 


020041 


7543 


002704 


001405 


7544 


002706 


105237 


7C/ C 






7546 


002712 


004767 


(1) 


002716 


000023 


(1) 
7547 


002720 


010100 


7548 


002722 


162700 


7549 


002726 


005703 


755C 


002730 


001401 


7551 


002732 


005100 


7552 


002734 


020104 


7553 


002736 


101361 


7554 


002740 


112737 


7555 


002746 


005103 


7556 


002750 


001345 


7557 






7558 


002752 


000733 


7559 
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13:15 14 DUAL ADDRESS TEST B 



SEQ 0031 



;*TEST 4 



TST4; 



DUAL ADDRESS TEST B 



IS: 



2S: 



3S: 



4S: 



5$: 



END4: 



;*(1) 


THIS TEST CI 


;* 


AND READING 


• ♦ 

• 


WRITING AND 




CMPB 


#4,anTESTN 


DC W 




JSR 


PCSEQERR 


22 


PLR 


R3 


nov 


RI.RO 


TST 


R3 


DC w 


Dt 

C 9 


COM 


RO 


NOV 


RO.(RI)* 


CMP 


R1,RS 


BLO 


IS 


CMP 


R0,-(R1) 


BEQ 


4S 


INCB 


a#SAOERR 


JSR 


PC, ERROR 




MOV 


R1 ,R0 


SUB 


#2«R0 


TST 


R3 


BEQ 


5S 


COM 


RO 


CMP 


R1.R4 


BHI 


3S 


MOVB 


#1 «S«PASFLG 


COM 


R3 


BNE 


IS 


BR 


END3 



; CHECK FOR PROPER TEST SEQUENCE 



.••ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 22»***** 



IF R3 IS NOT 0 THEN STORE THE ADDRESS 

IN THE LOCATION 

OTHERWISE STORE COMPLEMENT 

OF THE ADDRESS 

UNTIL THE HIGHEST MEMORV LOCATION IS REACHED 



.•CHECK THE LOCATION FOR THE CORRECT CONTENTS 

.•THIS IS PROBABLY ADDRESS PROBLEM RATHER THAN 
;BIT PROBLEM 

;*£RROR* REPORT ERROR MESSAGE 
;******ERROR NUMBER 23****** 



CHECK THAT THE ADDRESS IS STORED AT 
LOCATION IF R3 IS NOT 0 
OTHERWISE CHECK FOR 
ADDRESS COMPLEMENT 



SET PASFLG FOR ERROR REPORT. 

COMPLEMENT THE CONTENTS OF R3 

REPEAT TST3 IF R3. IS NON 0. ENABLING ADDRESS 

COMPLEMENT TO BE WRITTEN AND READ. OTHERWISE FALL THRU 
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62-U 
MARCHING 



G 5 



rS AND O'S 



SEQ 0032 



7574 






(3) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(3) 






(2) 


002754 


122737 


(2) 






7575 
7576 






002762 


001403 


7577 


002764 


004767 


(1) 


002770 


000024 


(1) 






7578 


002772 


004737 


7579 






7580 


002776 


020041 


7581 


003000 


001403 


7582 


003002 


004767 


(1) 


003006 


000025 


(1) 






7583 


003010 


000300 


7584 


003012 


010011 


7585 


003014 


021100 


7586 


003016 


001403 


7587 


003020 


004767 


(1) 


003024 


000026 


(1 ) 






7588 






7589 


003026 


000300 


7590 






7591 


003030 


001023 


7592 






7593 






7594 






7595 






7596 






7597 






7598 






7599 


003032 


005703 


7600 






7601 






7602 






^60 5 






7604 


003034 


001023 


7605 


003036 


062701 


7606 


003042 


020105 


7607 






7608 


003044 


103006 



.-♦TEST 5 MARCHING TS AND O'S 

*(1) THIS TEST URITES A BACK GROUND OF THE WORD STORED 

• AT BAKPAT. 

*(2) READS EVERV LOCATION FOR CORRECT DATA, SWAPS BYTES 

• AT THE LOCATION AND PROCEEDS IN MAX. TO MIN 

• DIRECTION OF HEMORY LOCATIONS. 
*(3) READS EVERV LOCATION FOR SWAPPED 6AKPAT PATTERN 

• WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS 

• IN NIN. TO MAX. DIRECTION 

*(4) REPEATS STEP 2 GOING IN NIN. TO MAX. DIRECTION 

•(5) REPEATS STEP 3 GOING IN MAX. TO NIN. DIRECTION 



000005 000404 TST5: CNP8 #5,8«$TESTN 



003176 
000120 

002622 



1$: 
2$: 

3$: 



002604 



4$: 



5$: 



6$: 



BEQ 
JSR 
24 

JSR 

CNP 
BEQ 
JSR 
25 

SWAB 

MOV 

CMP 

BEQ 

JSR 

26 



SWAB 
BNE 



TST 



BNE 
ADD 
CMP 

SHIS 



.♦10 

PCSEOERR 



PC.afURTNEM 

R0,-(R1) 
3S 

PCERROR 



RO 

R0,(R1) 
(R1),R0 
4$ 

PCERROR 



RO 
9$ 



R3 



tOS 

#2,R1 

R1,R5 

8S 



.-CHECK FOR PROPER TEST SEQUENCE 



.••ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 24***»*» 

;G0 TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
;WORD STORED IN BAKPAT 

;READ THE CONTENTS OF LOCATION POINTED BY R1 
:T0 SEE IF IT HAS THE SAME VALUE AS RO 
:*ERR0R* REPORT ERROR MESSAGE 
;******ERROR NUMBER 25****** 



:SWAP THE BYTES AT (R1) 
;READ (R1) FOR CORRECT VALUE 

;*ERROR* REPORT ERROR MESSAGE 
;***«**ERROR NUMBER 26»«**** 



SWAP THE BYTES OF THE REGISTER 
CONTAINING BACKGROUND PATTERN 
IF THE LOWER BYTE OF THE REGISTER 
IS NOT 0 THEN THE PROGRAM IS READING 
THE MEMORY TO CONTAIN A BACK GROUND OF 

BAKPAT AND WRITING THE SWAPPED WORD 

IN WHICH CASE GO TO 9$ 

R3 WAS 0 WHEN THE PROGRAM ENTERED 

THIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3 

IF R3 EQUAL 0 THEN THE PROGRAM IS 

READING/WRITING MIN. TO MAX. OTHERWISE 

IT IS GOING IN MAX. TO NIN. DIRECTION 

IF R3 IS NOT CLEAR THEN GO TO 10S 

OTHERWISE ADD 2 TO THE CONTENTS OF R1 

COMPARE R1 WITH THE MAX. NEMORY LOCATION TO 

BE TESTED 

IF R1>R5 THEN GO TO 8$ OTHERWISE 
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7609 
7610 
7611 
7612 
(1) 
(1) 
7613 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
7624 
7625 
^626 
7627 
7628 
7629 
7630 
7631 
7632 
763^ 
7654 
7655 
7636 
7637 



003046 020011 

00305& 001757 

003052 004767 002552 

003056 000027 

003060 000753 

003062 105237 000306 

003066 000300 

003070 001742 



003072 005103 
303074 010401 
003076 000763 



005100 005703 
003102 001353 



003104 020104 

003106 101333 

003110 105237 000306 

003114 000300 

003116 001753 



003120 000714 



r5 
7$: 



MARCHING rS AND O'S 



8$: 



9S: 



10S: 



END5: 



BEQ 

JSR 
27 

BR 
INCB 
SVAB 
BEQ 



COM 
MOV 
BR 



TST 
BNE 



CMP 

BHI 
INCB 
SWAB 
BEQ 



BR 



R0«(R1) 
3$ 

PC. ERROR 



3S 

a«PASFLG 

RO 

2$ 



R3 

R4,R1 
7$ 



R3 
5S 



R1,R4 
2$ 

atPASFLG 

RO 

7$ 



END4 



SEQ OOSS 



READ (R1) FOR THE CORREC DATA 

WRITE COMPLEMENT OF THE DATA FOUND AT (R1) 
AND REPEAT UNTIL R1 > R5 
*ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 27 • 



IF THE LOWER BYTE OF RO IS ALL O'S 

THEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT 

AND READING BAKPAT GOING FROM MAX. TO MIN.CPASFLG=4] 

OTHERWISE CLEAR RO 

PUT THE LOWEST TESTING ADDRESS IN R1 

AND BEGIN READING O'S, WRITING I'S AND 

READING I'S IN MIN. TO MAX. DIRECTION CPASFLG-3] 

IF R3 IS NON 0, I.E. PASFLG-3 

THEN READ BAKPAT, WRITE 

SWAPPED BAKPAT AND READ SWAPPED BAKPAT 

IN MIN. TO MAX. DIRECTION 

OTHERWISE TEST IS PROCEEDING IN MAX. TO 

MIN. DIRECTION. 

KEEP ON LOOPING UNTIL RUR4 



IF RO SWAPPED HAS LOWER BVTE=0 

THEN READ BAKPAT SWAPPED, WRITE BAKPAT, 

AND READ BAKPAT GOING FROM MIN. TO MAX. 



003122 122737 000006 000404 TST6: CNPB #6,a«STESTN 



003140 004737 
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7654 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 

(d) 
7655 
7656 

7657 003130 001403 

7658 0031 32 004767 
(1) 003136 000030 
(1) 

?'659 
7660 

7661 003144 005037 

7662 003150 010403 

7663 003152 010401 

7664 003154 020011 

7665 003156 001403 

7666 003160 004767 
(1) 003164 000031 
(1) 

7667 003166 062701 

7668 003172 020105 

7669 003174 103767 

7670 003176 132737 

7671 005204 001002 

7672 003206 105237 
7673 

7674 003212 0203o5 

7675 003214 103012 

7676 003216 012702 

7677 003222 000313 

7678 003224 005302 

7679 003226 001375 

7680 003230 010337 

7681 003234 062703 
7682 

7683 

7684 003240 000744 

7685 003242 105237 

7686 003246 000337 

7687 003252 001732 

7688 003254 000721 



16 
T6 



PAGE 



62-16 
CELLS* 



I 3 
VOLATILITY T£ST 



SEQ 0034 



.••TEST 6 CELLS* VOLATILITY TEST 

*(1) THIS TEST WRITES THE HEHORY WITH A BACK GROUND OF BAKPAT 

•(2) WITH PASFLG=0 THE TEST READS THE NENORY FOR BAKPAT 

* AND THEN INCREMENTS PASFLG 

*(3) IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR 

* OVEP 2 NSEC AND THEN READS THE MEMORY FOR BAKPAT 
*(4) REPEATS STEP 3 WITH X=X*4K UNTIL END OF MEMORY IS ENCOUNTERED 
•(5) IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO 

* BAKPAT AND WITH PASFLGs2 IT READS MEMORY FOR ALL 

* SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3 
•(6) REPEATS STEPS 3 AND 4 READING THE NENORY FOR SWAPPED 

* BAKPAT INSTEAD OF BAKPAT. 

*************************************************************** 



003030 

000120 
000306 



002444 
000002 

000001 000306 
000306 

037776 



000354 
020000 



000306 
000316 



BEO .♦lO 

JSR PC.SEQERR 

30 

RPT6: JSR PC«a«WRTMEM 

CLR afPASFLG 

IS: NOV R4.R3 

2$: MOV R4,R1 

3$: CMP RO.CRl) 

BEQ 4$ 

JSR PC, ERROR 

31 

4S: ADD 4*2. R1 

CMP R1.R5 

BLO 3$ 

BITB #l.a«PASFLG 

BNE 5$ 

INCB a#PASFLG 

:np R3,RS 

BHIS 7$ 

NOV #37776.R2 

SWAB (R3) 

DEC R2 

BNE 6$ 

NOV R3.a«SAVL0C 

ADD #26000,R3 



BR 2$ 

7$: INCB a#PASFLG 

SWAB a#BAKPAT 

BEQ RPT6 

END6: BR END5 



5$: 
6$: 



; CHECK FOR PROPER TEST SEQUENCE 



•ERROR* REPORT ERROR NESSAGE AND HALT AT FATHLT 
••••••ERROR NUNBER 30*^^^^^ 

GO TO WRITE THE NENORY WITH A BACKGROUND OF THE 
WORD STORED AT LOCATION BAKPAT 

SET R3 

AND Rl TO THE STARTING ADDRESS OF NENORY UNDER TEST 
CHECK (Rl) FOR CORRECT DATA 

*ERROR* REPORT ERROR NESSAGE 
•*****ERROR NUNBER 31 ••••*• 

INCREMENT Rl BY 2 

SEE IF Rl HAS REACHED THE MAX. OF NENORY 
CHECK TO SEE IF PASFLG-0 OR 2 
IN WHICH CASE INCRENENT PASFLG COUNTER BY 1 
SEE IF R3 HAS REACHED THE NAX. OF THE NENORY 
WRITE INTO 1 LOC FOR >2NS (ABOUT lOONS) 



;SAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT. 
;BY ADDING 1 TO THE UTH ADDRESS BIT CAUSE 
:R3 TO POINT TO A LOCATION IN THE NEXT 
:4K BANK OF NENORY 

;NAKE PASFLG=2 

;IF BAKPAT IS NOT BEING SWAPPED FOR THE 2ND 
.•THEN GO BACK TO THE LOCATION RPT6 
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f f\}\J 








\ 5) 








II \ 








II \ 
\H} 








1 1 \ 








1 1 \ 








tL \ 
\H / 








1 L\ 








tL\ 
« H / 
























(2) 


003256 


122737 


000007 


(2) 








f f Ul 








77n5 

( f\JC 


UU jcOh 


00U03 




77A7 


UU j<:00 


004767 


002674 


t A \ 
V 1 ^ 

^ 1 » 




000032 




( 1 / 

nc\L 




005037 


000306 


f f\jj 


on T 'ton 

UU33UU 


010337 


000304 


f f UO 








7707 
f f\Jf 




010302 




1 fyJo 




052702 


017777 






005202 




77in 


00771 A 


001402 




771 1 

rill 


00771 it 


020502 




771 5 

flic 


0077?0 


103001 




771 1 

r r 1 3 


007755 


010502 




771 A 








771 S 


0077?A 


010337 


000302 


771 A 








771 7 

rill 


007'^ '^0 


013701 


000304 


771ft 

r r 1 0 








7710 

r r \ y 




013700 


000316 


7730 


007'^AO 


020103 




7751 
r r ci 


OOT^A? 


001010 




77?? 




062703 


000002 


77D'< 




032703 


000176 


77?A 
f r cH 


UU33?t 


001402 




r r cj 




062703 


000200 


77?A 
f r CO 




000300 




7777 
1 r CI 




132737 


000001 


77?ft 








77?0 








77^0 


vVjjf c 


001001 








010011 




7732 








7733 


003376 


020011 












77^S 
1 1 J J 


OO^AOO 


001403 




7736 


003402 


004767 


002222 


(1) 


003406 


000033 




(1) 
7737 


003410 


062701 


000002 


7738 


003414 


020102 




7739 


003416 


103746 
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T7 SHIFTING DIAGONAL 



J 3 



SEQ 0035 



;«TEST 7 SHIFTING DIAGONAL 

*(1} THIS TEST WRITES THE NENORY WITH A BACKGROUND OF BAKPAT 

*(2) IT WRITES A DIAGONAL OF SWAPPED BAKPAT THROUGH EACH NENORY BANK 

*(3) READS THE MEMORY FOR CORRECT DATA 

*(4) SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE 

* DIAGONAL HAS BEEN SHIFTED 64 TINES 
*(5) WRITES A BACKGROUND OF SWAPPED BAKPAT, A DIAGONAL OF 

* BAKPAT AND REPEATS FROM STEP 3 



2S: 



3S: 
4t: 

6$: 



8$: 
lOS: 



12$: 



14$: 



TST7: CHPB #7,a»$TESTN 



BEQ 
JSR 
32 

CLR 
NOV 

NOV 

BIS 

INC 

BEQ 

CNP 

BHIS 

KCV 

NOV 

NOV 

NOV 

CNP 

BNE 

ADD 

BIT 

BEQ 

ADD 

SWAB 

BITB 



BNE 
NOV 

CNP 

BEQ 

JSR 
33 

ADD 
CNP 
BLO 



.♦10 

PCSEQERR 



a«PASFLG 
R3,a»L0WBNK 

R3,R2 

#1^777,R2 

R2 

3$ 

R5,R2 
4$ 

R5«R2 

R3,a#STRTDI 

a#LOWBNK,Rl 

a#BAKPAT,RO 

R1-R3 

lOi 

#2.R3 

f176,R3 

8$ 

#200,R3 
RO 

#1 ,a#PASFLG 



12$ 

R0,(R1) 
R0,(R1) 
14$ 

PC, ERROR 



#2,R1 
R1,R2 
6$ 



.•CHECK FOR PROPER TEST SEQUENCE 



;*ERROR* REPORT ERROR NESSAGE AND HALT AT FATHLT 
;******ERROR NUNBER 32*»**»* 



;LOWBNK CONTAINS ADDRESS OF THE LOWEST LOCATION 
;IN THE 4K BANK THAT CAN BE TESTED 

:R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK 

;ADD 1 TO POINT IT TO NEXT BANK 

.•BRANCH IF ZERO (IT NUST BE A 30K SYSTEN) 

.-IF R2 IS GREATER THAN R5 THEN GO TO 4$ 

.-NOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCAIION 

;THAT CAN BE TESTED 

.•LOAD STRTDI WITH THE STARTING ADDRESS OF THE 
.•DIAGONAL 

:R1 IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K 
'BANK 

; STORE THE CONTENTS OF BAKPAT IN RO 

:IS R1 POINTING TO A LOCATION IN THE DIAGONAL ? 

:IF NOT THEN GO TO 10$ 

;THE FOLLOWING CODE IS USED TO PLACE THE 

;ADDRESS OF THE NEXT LOCATION IN THE DIAGONAL 

;IN R3 

• 

■DIAGONAL WILL CONTAIN SWAPPED BACKGROUND PATTERN 
.•CONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE 
.•NENORY IS BEING WRITTEN AND IT WILL BE ODD 
;IF IT IS ONLY BEING READ 
;IF IT IS BEING READ ONLY THEN GO TO 12$ 
;OTHERUISE WRITE THE NENORY WITH THE CONTENTS 
:0F RO 

.•CHECK THE LOCATION POINTED BY R1 TO CONTAIN 
.•PROPER DATA 

:IF IT IS OK THEN GO TO 14$ 
;*ERROR* REPORT ERROR NESSAGE 
;******ERROR NUNBER 33****** 

CAUSE R1 TO POINT TO THE NEXT NENORY LOCATION 
IS IT THE END OF THE BANK ? 
IF NOT THEN GO TO 6$ 
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13-15 T7 


SHIFTING DIAGONAL 




003420 


005237 




INC 


a#SDEVCT 


7741 


003424 


105237 




INCB 


a#PASFLG 


77L7 


003430 


013703 




MOV 


a«STRTDI,R3 


774^ 


003434 


132737 




BITS 


«1,a«PASFLG 


77LL 

f f •••• 


003442 


001330 




BNE 


4S 


774S 


003444 


005723 




TST 


(R3)* 


77Lfi 

f f "tW 


003446 


020302 




CMP 


R3,R2 




003450 


103003 




BHIS 


18S 


7748 


003452 


105737 




TSTB 


amsFLG 


7749 


003456 


100322 




BPL 


4$ 


7750 


003460 


013703 


000304 18t: 


MOV 


a«L0UBNIC,R3 


7751 












775? 


003464 


000337 




SUAB 


a«BAICPAT 


7753 


003470 


001715 




BEQ 


4S 


7754 












7755 


003472 


010203 




MOV 


R2.R3 


7756 












7757 


003474 


020205 




CMP 


R2.R5 


7758 










7759 


003476 


103676 




BLO 


2$ 


7760 


003500 


0006'. 5 


EN07: 


BR 


END6 



;TELL APT UE ARE STR RUNNING OKAV 

LOAD R3 WITH THE STARTING ADDRESS OF ThE DIAGONAL 
HAS THE READ OF THE MEMORV BEEN DONE ? 
IF NOT THEN GO TO 4$ 

ADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL 
AND UNLESS THE END OF THE BANK IS REACHED 

OR THE DIAGONAL HAS BEEN ROTATED 64 TIMES 
REPEAT FROM 4$ 

MAKE R3 POINT TO THE LOWEST LOCATION IN THE 
IN THE BANK UNDER TEST 

AND IF THE TEST HAS NOT BEEN PERFORMED WITH THE 
SWAPPED BACK GROUND PATTERN THEN GO TO 4$ 
MAKE THE PRESENT HIGH BOUNDRY AS THE NEXT 
LOW BOUNDRY 

UNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE 
HIGH BOUNDRY FOR THE MEMORY UNDER TEST 



CNKMA 




30(1046) 


CNKHAA.PII 27-0EC-82 


7788 






(3) 






(4) 






(A) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(3) 






(2) 


003502 


122737 


(2) 






7789 






7790 


003510 


AA4 / A9 

001403 


7791 


A A « ^ 

003512 


A A J ^ 

004767 


(1) 


AA9f 4 ^ 

003516 


AAAAV^ 

000034 


(1) 






7792 


AAV P "^A 

003520 


A4 A y At 

010402 


7793 


AA 

003522 


Af A^AI 

052702 


7794 






7795 


AA9r 

003526 


A^ ^^A^ 

062702 


7796 


003532 


AA1 / AO 

001402 


7797 


003534 


A^A AAC 

020205 


7798 


003536 


4 A1 y Ai 

101401 


7799 


aA / A 

003540 


A4 ACAO 

010502 


7800 


AATr / 

003542 


AAPA^ Z 

005046 


7oOi 


003544 


A1 AOAA 

010200 


7802 


A A9 r / ^ 

003546 


A4 A 

013740 


7803 






7804 


A A9r r ^ 

003552 


AOAAAT 

020003 


AP 

7805 


A A 9 r f y 

003554 


4 A4 

101374 


A^ 

7806 


003556 


A' AVA4 

0 1 0301 


A^ 

7807 






foiJo 






7809 






7810 


003564 


001410 


7811 


003566 


010001 


7812 


003570 


013700 


7813 


003574 


004767 
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no READ RECOVERY GALLOPING TEST/EVERY 64TH CELL SEQ 0037 

••TEST 10 READ RECOVERY GALLOPING TEST/EVERY 64TH CELL 

(1) THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN 
STORED AT LOCATION BAKPAT 

(2) TEST BEGINS AT LOWEST LOCATION BEING TESTED 
(LETS NAME IT 'A') 

(3) LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS 'B*. 

(4) SWAPS BYTES FOR LOCATION 'A*. 

(5) READS 'A' READS 'B' 

(6) 'B* = •B**200 (MAKES •B'=64TH CELL I.E. 200TH OCTAL 
LOCATION FROM THE PRESENT LOCATION OF 'B') 

(7) REPEATS STEPS 5 AND 6 UNTIL 'B* IS GREATER THAN THE 
END OF THE 4K BANK OF THE MEMORY IN WHICH 'A* IS RESIDING 

(8) A = A*2 

(9) REPEATS STEPS 3-8 UNTILL 'A' REACHES THE END OF THE BANK 

(10) GOES TO THE NEXT 4K BANK OF MEMORY AND REPEATS STEPS 
3-9 UNTIL THE END OF THE MEMORY 

(11) AFTER EXECUTING THE TEST BYTES ARE SWAPPED AT 
LOCATION BAKPAT AND STEPS 1-10 ARE REPEATED 

(12) IN THIS TEST RO IS POINTING TO LOCATION 'A', R1 TO 
LOCATION 'B', R2 TO THE END OF THE 4K BANK IN WHICH THE 
TEST IS TAKING PLACE AND R3 TO THE LOWEST LOCATION IN THE 
COLUMN/ROW CONTAINING 'A' AND *B' 

(13) MOST OF THE CODE USED BY THIS TEST IS ALSO USED BY TEST 11 



002450 

0i7776 
000002 



000316 



000316 



000316 
002030 



tSTIO: 


CMPB 


#10,af$TESTN 




BEO 


.♦10 




JSR 


PCSEQERR 




34 




MOV 


R4,R2 


RPT10: 


BIS 


#17776,R2 


GALLOP: 


ADD 


#2,R2 




BEO 


IS 




CMP 


R2,R5 




BLOS 


2S 


IS: 


MOV 


R5,R2 


2$: 


CLR 


-(SP) 




MOV 


R2,R0 


4S: 


NOV 


a#BAKPAT,-(RO) 




CMP 


R0,R3 




BHI 


4S 


6S: 


NOV 


R3,R1 




CNP 


amKPAT,(RO) 




BEO 


8S 




NOV 


R0,R1 




NOV 


amKPAT.RO 




JSR 


PC. ERROR 



;*ERROR* REPORT ERROR NESSA6E AND HALT AT FATHLT 
;******ERROR NUNBER 34****** 

;SET R2 TO THE LOWEST NENORY UNDER TEST 
:NAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K 
;BANK FOR WHICH GALLOPING WILL BE PERFONED 
.•INCREMENT R2 BY 2 

;BR IF IT WENT TO 0 (IT MUST BE A 30K SYSTEM) 
;IF THE HIGH 60UNDRY OF THE TEST IS HIGHER THAN 

;THE NAXINUN ALLOWED ADDRESS THEN ADJUST R2 



;WRITE THE NEMORY UNDER TEST WITH A BACKGROUND OF 
: BAKPAT 



:R3 AND R1 ARE POINTING TO THE LOWEST LOCATION THAT 
;CAN BE TESTED IN THIS BLOCK 

.•BEFORE STARTING THE GALLOPING TEST FOR LOCATION 
;(R0) CHECK IT 
: CONTINUE IF OK 

.-OTHERWISE PREPARE TO REPORT THE ERROR 
;*ERROR* REPORT ERROR MESSAGE 
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(1) 
(1) 
78K 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 
7827 
(1) 
(1) 
7828 
7829 
7830 
7831 
7832 
7833 
7834 
(1) 
(1) 
7835 
7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
^851 
7852 
7853 
7854 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 



003600 

003602 
003604 

003606 
003610 

003612 

003614 
003616 
003622 
003624 
003626 
003632 
003636 

003640 
003642 
003646 
003650 
003652 
003654 
003660 
003664 

003666 
003670 
003672 
003674 
003702 
003704 
003710 
003714 
003716 
003720 

003722 
003730 
003732 
003734 
003740 
003742 
003744 
003746 
003750 
003754 
003756 
003762 
003764 
003766 
003770 
003774 
004000 
004002 



000035 








35 




010011 








nov 


R0,(R1) 


m m nn 








nuv 


D1 DO 


000310 






8S: 


SWAB 


(RO) 


031011 






10S: 


BIT 


(R0),(R1) 


020001 








CMP 


R0,R1 


001412 








BEQ 


12$ 














001407 








BEQ 


12$ 


010046 








MOV 


RO.-(SP) 


013700 


000316 






nov 


a#BAKPAT,RO 


004767 


001772 






JSR 


PC, ERROR 


000036 








36 




012600 








nov 


(SP)*,RO 


021037 


000320 




12S: 


CMP 


(RO),a#SUAPAT 












14$ 


010146 








MOV 


R1,-(SP) 


010001 








MOV 


R0,R1 


013700 


000320 






MOV 


a#SUAPAT,RO 


00i>767 


001744 






JSR 


PC, ERROR 


000037 








37 


010011 








MOV 


R0,(R1) 


010100 








MOV 


R1,R0 


012601 








MOV 


(SP)*,R1 


y227l7 


00001 1 


000404 


14t: 


CMP8 


#11,a#$TESTN 


001407 

WW 1 •* WC 








RFQ 


16$ 


062701 


000176 






ADD 


#176, R1 


062701 


000002 




16S: 


ADD 


#2,R1 


020102 








CMP 




103734 








BLO 


10$ 


000320 








SWAB 


(RO)* 


122737 


000011 


000404 




CMPB 


/ni,a#$TESTN 


001407 








BEQ 


17$ 


005723 








TST 


(R3)* 


062716 


000002 






ADD 


#2.(SP) 


105716 








TSTB 


(SP) 


100002 








BPL 


17$ 


161603 








SUB 


(SP),R3 


005016 








CLR 


(SP) 


032700 


000177 




17$: 


BIT 


#177,R0 


001002 








BNE 


18$ 


005237 


000410 






INC 


a#$DEVCT 


020002 






18$: 


CMP 


R0,R2 


103674 








BLO 


6$ 


162603 








SUB 


(SP)*,R3 


000337 


000320 






SWAB 


a#SUAPAT 


000337 


000316 






SWAB 


a#BAKPAT 


001660 








BEQ 


2$ 


010203 








MOV 


R2.R3 



TEST/EVERr 64TH CELL 

;******ERROR NUMBER 35 

.•RESTORE THE CONTENTS OF (R1 } 
: RE STORE RO 



SEQ 0038 



.•CHECK TO SEE THAT NONE OF THE BITS SET 
:IN (RO) ARE SET IN (RD AND VICE VERSA 
;THE ONLr EXCEPTION TO THIS WILL BE WHEN R0=R1 



CHECK THAT (R1) HAS BAKPAT IN IT 

SAVE RO ON STACK 
PLACE THE PATTERN WORD IN RO 
*ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 36****** 

RESTORE RO 

CHECK THAT (RO) HAS SWAPPED BAKPAT IN IT 

SAVE R1 ON THE STACK 
MAKE R1 POINT TO THE FAILING LOCATION 
LOAD RO WITH THE EXPECTED RESULT IN (RD 
*ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 37****** 

RECOVER (RD FROM THE ERROR 
RESTORE RO 
AND RESTORE R1 

IS THE PROGRAM EXECUTING TEST # 11 ? 
IF SO THEN GO TO 16$ 

MAKE R1 POINT TO THE NEXT ADJACENT CELL 

AND IF R1 HAS NOT REACHED THE END OF THE 60UNDRY 

THEN REPEAT FROM 10$ 

RESTORE THE LOCATION FOR WHICH THE GALLOPING TEST 

WAS BEING PERFORMED 

IS IT TEST 11 ? 

IF SO THEN GO TO 17$ 

OTHERWISE INCREMENT R3 BY 2 

FOR EVERY ROW/COLUMN TESTED ADD 2 

UNTIL (SP) IS 200 
SUBTRACT 200 FROM R3 

AT A 64TH CALL BOUNDRY? 
BRANCH IF NO 

TELL APT WE ARE STILL RUNNING 

IF RO HAS NOT REACHED THE END OF THE BOUNDRY 

THEN REPEAT FROM 6$ 

RESTORE SP AND R3 



;IF THE LOWER BYTE OF BAKPAT IS 0 THEN REPEAT FROM 2$ 
;0THERWISE MAKE THE PRESENT HIGH BOUNDRY AS THE 
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no 



786A 
7865 
7866 
7867 
7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 



004004 020205 

004006 001410 

004010 032702 017776 

004014 001025 

004016 122737 000011 000404 

004024 001421 

004026 000635 

004030 000623 END10: 
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N 3 

GALLOPING TEST/EVERV 64TH CELL 



SEO 0039 







;NCaI LUW BUUnUKT 


mo 




Bcn 
DCB 


cunin 


:IF PREVIOUS HIGH BOUNDRY WAS THE END OF THE 






Di 1 


m \ f f r 0,Kc 


:UAS IT A 4K BOUNDRY ? 




n» III 


•IF NOT THFN UF UFRF PFRFORMING TFST 11 UITH LONG 






:GALLOPING TEST DISABLED 


CHPB 


f11,af$TESTN 


;IF IT IS TEST « 11 THEN GO TO REPEAT TEST 11 


BEO 


RPT11 


BR 


RPT10 


.-OTHERWISE REPEAT TEST 10 


BR 


END7 



CNKMA 




1 A / 1 A. A \ 






27-DEC-82 


13:15 


7906 








(3) 








{«») 








(^} 
















(4) 








(4) 








(4) 








(4) 








14 J 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 
















/ 1 \ 








// \ 








f / \ 

\Hi 
















(A) 
















(4) 








(4) 








(3) 










AAy ATO 

00403c 


122737 


000011 




















AA/ A/ A 

004U4U 


001403 




7AAA 


AAV A/ ^ 

004042 


004767 


002120 


( 1 ) 


AA/ Ay < 


000040 




( 1 ) 








7Q1 A 


AA/ ACA 


010402 




79 1 1 










AA/ ACO 


105777 


174372 


/^91 3 


AA/ nc/L 
UU4U30 


100004 




r914 


AA/ AXA 


004767 


002526 


7Q1 < 
1 5 


AA/ AA/ 


046107 


000120 


701 A 

^ y 10 


UU4Uf U 


105777 


174354 






100612 




7Q1fl 








7919 


004076 


052702 


000176 


7920 








7921 








7922 


004102 


000611 
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Til READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 

:*TEST*ir * * READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 

*(1) THIS TEST WRITES MEHGRY WITH BAKPAT 

*(2) THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED 

* (LETS NAHE IT 'B') 

* (3) 'A' 'B' CmVE THE ADDRESS OF 'B' TO THE POINTER FOR LOCATION 'A'] 
•(4) SWAPS BYTES FOR LOCATION 'A' 
*(S) READS READS 'B* 
•(6) •B'=*B'*2 

*(7) IF GALLOPING OPTION BIT AT SSWREG IS HIGH THEN STEPS 4 AND 5 

* ARE REPEATED UNTIL 'B' REACHES THE HIGHEST MEMORY LOCATION 

* OF THE 4K BANK IN WHICH *A' IS RESIDING, THEN 'A* IS 

* DECREMENTED BY 2 AND AFTER MAKING 'B' TO POINT TO THE LOWEST 

* LOCATION OF THE 4K MEMORY BANK CONTAINING 'A' STEPS 3,4,5 AND 

* 6 ARE REPEATED UNTIL 'A* EQUALS THE END OF THE ENTIRE MEMORY 
•(8) IF GALLOPING OPTION BIT IS NOT HIGH THEN STEPS 4 AND 5 ARE 

* REPEATED UNTIL 'B' IS POINTING TO A CELL IN THE NEXT COLUMN 

* IF SEQUENTIAL CELLS LIE ALONG THE ROW, OR THE NEXT ROW 

* IF SEQUENTIAL CELLS LIE ALONG THE COLUMN, AT WHICH TIME 

* STEPS 2,3,4,5 AND 7 ARE REPEATED UNTIL THE END OF THE MEMORY 
*(9) TEST IS REPEATED FOR THE OPPOSITE BACKGROUND DATA 
*(10) IN THIS TEST RO POINTS TO LOCATION 'A', R1 TO LOCATION 

* 'B*, R2 TO THE HIGHEST LOCATION AND R3 TO THE LOWEST 

* LOCATION IN A 64/4K CELL BOUNDRY 

•(11) MOST OF THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST 

• • *************************************************************** 

tSTII: CMPB «11,amESTN : CHECK FOR PROPER TEST SEQUENCE 



SEO 004" 



RPT11 



BEQ 
JSR 
40 

MOV 

TSTB 

BPL 

JSR 

.ASCIZ 

TSTB 

BMI 

BIS 



BR 



.♦10 

PCSEQERR 



R4,R2 

aswR 

RPT11 
PCPNTHES 

/GLP/ 

aswR 

RPT10 
#176,R2 



GALLOP 



;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 40****** 

:MAKE R2 TO POINT TO THE LOWEST LOCATION 

.•UNDER TEST 

:LONG GALLOP ENABLED? 

.•BRANCH IF NO 

.-TYPE "GLP" 

.•LONG GALLOPING ENaDLED? 
.•BRANCH IF YES 
;T0 RPT10 

.•OTHERWISE SET THE LOW ORDER BITS OF THE ADDRESS 
:T0 GET THE HIGH BOUNDRY 

; PERFORM GALLOPING TEST 
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(3) 






(4) 






(4) 






(4) 






(4) 






<4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(3) 






(2) 


(\(\L 1 CiL 


1777^7 

ICC' 


(2) 






7946 


UUH 1 1 C 




7947 




00A767 

UU** f Or 


(1) 




000(1^1 

UUUU'* I 


(1) 






7948 






7949 


UwH 1 CC 


017707 

V 1 C r vC 


7950 


vi/*ff lew 


017703 


7951 




117737 


7952 


004140 




7953 






7954 


004147 


01 ^700 


7955 


004146 


050P01 


7956 


004150 


001004 


7957 


004157 


030301 


7958 


004154 


001404 

VV 1 ~ v^ 


7959 


004156 


005100 


7960 






7961 






7962 






7963 






7964 


004160 


000402 



27-DEC-82 
13:15 



13:16 PAGE 
T12 



62-23 
WORST 



C 4 

CASE TESTING FOR CORE NENORV 



SEQ 



***************************************************************** 

•iTEST 12 WORST CASE TESTING FOR CORE MEMORY 

:*(1) STARTING FROn THE LOWEST LOCATION UNDER TEST THE MEMORY 

* IS WRITTEN WITH A BACKGROUND OF BAKPAT, HOWEVER LOCATIONS 

* HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS 1 t 

* 8 = 1 ARE WRITTEN TO A VALUE OF SWAPPED BAKPAT 
*(2) STARTING FROM THE LOWEST LOCATION THE MEMORY IS CHECKED 

* TO CONTAIN THE CORRECT DATA AS EXPLAINED IN STEPS 3 & 4. 

* UNTILL THE HIGHEST LOCATION UNDER TEST IS REACHED 
*(3) READ EACH LOCATION FOR THE CORRECT CONTENT 
*(4) COMPLEMENT THE LOCATION AND READ IT; COMPLEMENT THE LOCATION 

* BACK TO ITS ORIGINAL VALUE AND READ IT AGAIN 
*(5) STARTING FROM THE HIGHEST LOCATION UNDER TEST REPEAT STEPS 

* 3 S 4 UNTIL THE LOWEST LOCATION UNDER TEST IS REACHED 
*(6) REPEAT STEPS 1-5. HOWEVER THIS TIME LOCATIONS WITH XOR 

* OF ADDRESS BITS 8 ft 13 -1 ARE WRITTEN TO SWAPPED BAKPAT 
•<7) REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR 

* OF ADDRESS BITS 3 ft 9 =1 ARE WRITTEN TO SWAPPED BAKPAT 
*(8) REPEAT STEPS 1-7 WITH A BACKGROUND OF SWAPPED BAKPAT AND 

* THE LOCATIONS TO BE WRITTEN TO SWAPPED BAKPAT WRITTEN TO 

* BAKPAT. 

***************************************************************** 

tST12: CMPB #12,a«$TESTN ; CHECK FOR PROPER TEST SEQUENCE 



IS: 
2$: 

4$: 



6$: 



BEQ .«10 

JSR PCSEQERR 

41 



MOV «2,R2 

MOV f400,R3 

MOVB #1 «a#PASFLG 

NOV R4,R1 

MOV amKPAT.RO 

BIT R2.R1 

BNE 8$ 

BIT R3.R1 

BEQ 12i 

COM RO 



BR 12S 



;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 41 *•*••• 



PREPARE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 1 
AND 8 

INITIALIZE THE COUNTER FOR THE SUBTEST 
PLACE THE STARTING ADDRESS OF MEMORY UNDER 
TEST IN R1 

CHECK TO SEE IF ADDRESS BIT STORED IN R2 IS SET 
IF IT IS SET THEN GO TO 8$ 

CHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET 

IF IT IS NOT SET THEN GO TO 12$ 

COME HERE ONLY IF EXCLUSIVE OR OF ADDRESS BITS 

POINTED BY R2 ft POINTED BY R3 » 1 IN WHICH 

CASE PREPARE TO WRITE THE LOCATION 

WITH A COMPLEMENT OF LOCATIONS NOT MEETING 

THIS CONDITION 



CNKMA 
CNKHAA 

7966 
7967 
7968 
7969 
7970 
7971 
7972 
7973 
7974 
7975 
7976 
7977 
7978 



D A 

HACVII 30(1046) 27-0EC-82 13:16 PAGE 63 
,P11 27-DEC-82 13:15 T12 WORST CASE TESTING FOR CORE hEHORY 



SEO 0042 



004162 030301 



004164 001774 



6S: 



004166 132737 000002 000306 12S: 
004174 001001 



BIT R3.R1 



BEQ 6$ 



61 TB #2,i»#PASFLG 
6NE 14S 



:C0ME HERE IF ADDRESS BIT POINTED BY R2 IS 1 AND 



.-CHECK ADDRESS BIT POINTED BY R3 

;IF ADDRESS BIT POINTED BY R3 IS 0 THEN GO TO 6S 



;IS IT 2ND OR 3RD PASS OF THE SUBTEST? 
;IF SO THEN READ THE MEMORY 



LHK^k MACV11 30(1046) 27-DEC-82 
C^itcMAA.PII 27-DEC-82 13:15 



E 4 

13:16 PAGE 64 

T12 WORST CASE TESTING FOR CORE MEWRV 



SEQ 0043 



7980 
7981 
7982 
7983 
7984 
(1) 
(1) 
7985 
7986 
7987 
7988 
7989 
7990 
(1) 
(1) 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 



004176 
004200 
004202 
004204 
004210 

004212 
004216 
004220 
004222 
004224 
004226 
004232 

004234 
004236 
004240 
004242 
004244 
004252 
004254 

004260 
004262 
004264 
004270 
004276 
004300 

004304 
004306 
004310 

004314 
004320 
004326 
004330 
004332 
004336 
004340 
004342 
004346 
004352 
004354 



010011 
02001 1 
001403 
004767 
000042 

012746 
005100 
005111 
02001 1 
001404 
004767 
000043 

010011 
005316 
001366 
005726 
122737 
001412 
062701 

020105 
103727 
105237 
122737 
001720 
162701 

020104 
103315 
012702 

105237 
123727 
103701 
101004 
012702 
006303 
000674 
005137 
105737 
001654 
000625 



001420 
000002 

001376 



14$: 



16$: 
18$: 



19$: 



000003 000306 
000002 



t 00306 

000002 000306 



000002 



020000 



20$: 



000307 

000307 000002 



000010 



000316 
000316 



22$: 

END12: 



nOV R0,(R1) 

CMP RO.(RI) 

BEO 16$ 

JSR PC.^RROR 
42 

MOV #2,-(SP) 

con RO 

con (R1) 

cnp ROt(Ri) 

BEO 19$ 

JSR PC.ERROR 

43 

nOV R0,(R1) 

DEC (SP) 

BNE 18$ 

TST (SP)* 

cnpB «3,amsFLG 

BEQ 20$ 

ADD «2,R1 

CMP R1,R5 

BLO 4$ 

INCB a#PASFLG 

CMPB #2.afPASFL6 

BEO 2$ 

SUB «2,R1 

CMP R1 «R4 

BHIS 4$ 

MOV #20000, R2 

INCB a#PASFLG*1 

CMPB afPASFLG*1,#2 

BLO 1$ 

BHI 22$ 

MOV #10, R2 

ASL R3 

BR 1$ 

COM a#BAKPAT 

TSTB a#BAKPAT 

BEQ TST12 

BR END10 



; OTHERWISE WRITE THE MEMORY BFORE READING IT 
;READ THE MEMORY FOR CORRECT CONTENTS 

;*ERROR* REPORT ERROR MESSAGE 
;******ERROR NUMBER 42****** 



READ THE MEMORY AGAIN 

•ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 43****** 

RESTORE THE LOCATION (R1) 

EXECUTE THE CODE FROM 18$ TWICE 
RESTORE THE STACK POINTER 
IS IT THE 3RD PASS OF THE SUBTEST ? 
IF SO THEN GO TO 20$ 

IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN 
MIN. TO MAX. DIRECTION 

HAVE WE REACHED THE MAX. ADDRESS UNDER TEST ? 
IF NOT THEN REPEAT FROM 4$ 

IF IT IS THE 2ND PASS OF THE SUBTEST 
THEN REPEAT FROM 2$ 

OTHERWISE EXECUTE THE TEST IN MAX. TO MIN. 
DIRECTION 

HAVE WE REACHED THE MIN. ADDRESS UNDER TEST ? 
IF NOT THEN REPEAT FROM 4$ 
PREPARE TO CHECK THE MEMORY WITH THE XOR OF 
ADDRESS BITS 8 AND 13 

THE SUB TEST HAS CHECKED THE XOR ONE KIND 
HAS TWO XOR COMBINATIONS BEEN CHECKED ? 
IF NOT THEN GO TO 1$ 

IF ALL THREE HAVE BEEN CHECKED THEN GO TO 22$ 
IF IT IS THE 2ND XOR COMBINATION THEN CHECK 
FOR ADDRESS BITS 3 ft 8 

IF THE TEST WAS NOT PERFORMED WITH THE SWAPPED 
6AKPAT THEN RE-EXECUTE THE TEST 



CNKMA MACY11 30(1046) 27-DEC-82 
CNKMAA.Pn 27-0EC-82 13:15 



8051 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
8052 
8053 
(1) 
(1) 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
SOfcl 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 



13:16 PAGE 
T13 



64-1 
WRITE 



F 4 



RECOVERY TEST 



SEQ 0044 



TEST 



AND NAY BE DIFFICULT TO DEBUG. 
ENTERED '7ST13 BNK XX" 
AT LEAST SEE WHICH MEfWRV 



13 WRITE RECOVERY TEST 

THIS TEST DIFFERS FROM 0-12 IN THAT IT CONSISTS OF A SMALL TEST PROGRAM 
ACTUALLY RUNNING IN THE 4K BANK UNDER TEST. 

THE PROGRAM IS SELF MODIFYING 
TO AID IN THE DEBUG, BEFORE A BANK IS 
IS TYPED. THIS WILL ALLOW THE USER TO 
BANK FAILED. 

THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH 'IWV R2.-(PC)" 
AND THE OTHER 1/2 CONTAINING ••177667". "177667" IS THE COMPLEMENT 
OF "JMP (RO)" INSTRUCTION. 

R2 CONTAINS "CON -(R1)" INSTRUCTION ON ENTRY TO THE BANK AND R1 
THE HIGHEST TEST ADDRESS IN THAT BANK. THE HIGHEST TEST ADDRESS 
USUALLY ON 4K BOUNDARIES. WHEN TESTING BANK 0 RELOCATED. HOWEVER 
R1 CONTAINS THE FIRST FREE TEST ADDRESS BELOW THE DIAGNOSTIC. 
IF YOU UNDERSTAND THIS SO FAR THE REST IS EASY. 
THE TEST EXECUTION IS AS FOLLOWS: 
1. THE "NOV R2,-(PC)" INSTRUCTION EXECUTES STORING 



CONTAINS 
IS 



THE CONTENTS OF R2 IN THE 

2. SINCE R2 CONTAINS A "COM 
THE HIGHEST ADDRESS UNDER 
"177667" SO AFTER THE COM 
CLEVERLY THIS IS THE "JMP 

3. THIS SEQUENCE CONTINUES UNTIL THE 
REACH THE MIDDLE OF THE TEST BANK. 



ADDRESS IT VACATED (DUE TO -(PC). 
-(R1)" INSTRUCTION IT COMPLIMENTS 
TEST. THIS ADDRESS CONTAINED 
-(R1) IT EQUALS 110 
(RO)" INSTRUCTION. 

"Wy R2.-(PC) INSTRUCTIONS 
THEN THE "JMP (RO)" INSTRUCTION 



AND EXECUTED. RO CONTAINED THE RETURN ADDRESS BACK 
TO TEST 13. 

4. THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST. 



IS 



004356 122737 000013 000404 TST13: CNPB #13.a«$TESTN ;CHECK FOR PROPER TEST SEQUENCE 



004364 
004366 
004372 

004374 

004400 



004404 
004406 
004410 
004412 
004414 
004416 
004420 
004422 
004424 
004430 
004432 
004434 



001403 

004767 001574 
000044 

012702 010247 
012700 177667 



010546 
010446 
000241 
006005 
006004 
160405 
006005 
103002 

062716 000002 
012604 
01260S 
010403 



BEQ 

JSR 
44 



.♦10 

PC.SEQERR 



.••ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 44**»*** 



1$ 



NOV #10247. R2 .-PLACE THE OP CODE OF INSTRUCTION MOV R2.-(PC) 

* IN R2 

NOV #177667. RO -PLACE'thE CONPLENENT OF THE INSTRUCTION 

*JNP (RO) IN RO 

.•INSURE LOWEST TEST ADDRESS TO END OF 4K SEGNENT IS NULTIPLE OF 2 
.•SINCE THE TEST STORES "MOV R2.-(PC) IN 1/2 AND 1776^7 IN THE OTHER 1/2 



2$: 
29$: 



30$: 



NOV 
NOV 

CLC 
ROR 
ROR 
SUB 
ROR 
BCC 
ADD 
NOV 
MOV 
MOV 



R5,-(SP) 
R4,-(SP) 

R5 
R4 

R4.R5 

R5 

30$ 

#2.(SP) 
(SP)*.R4 
(SP)*.R5 
R4.R3 



'SAVE R5 

•STORE LOWEST ADDRESS ON STACK 

.-MAKE POSITIVE BYTE COUNT OF HIGH ADDRESS 

:D0 SANE FOR LOWEST ADDRESS 

:GET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST 

;IF DIFFERENCE IS ODD THEN R4 IS AT LOWEST ADDRESS 

.•BRANCH IF R4 IS AT LOWEST TEST ADDRESS. 

.•INCREASE LOWEST TEST ADDRESS BY 2 

.•RESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY) 

:RESTORE HIGHEST TEST ADDRESS 

.•PLACE THE LOWEST LOCATION UNDER TEST 

;IN R3 



'N(^f«A HACvn X0(104fc) 27-0EC-82 13:16 PAGE 64-2 
NKWAA.Pr. 27-DEC-82 13:15 T13 yRITE RECOVERY TEST 



G 4 



SEO 0(K5 



807^. 
8075 
8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
808S 
8086 
8087 
8088 
8089 
8090 
8091 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 
8109 
8110 
8111 
8112 
8113 
8114 
8115 
(1) 
(1) 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
(1) 
(1) 



004456 
004440 

004444 
004446 
004452 
004454 
004456 

004460 
004464 
004466 
004470 

004472 
004474 
004500 



000406 
042703 

001507 
105737 
100504 
020305 
103102 

020527 
103002 
010501 
000407 

010301 
052701 
005201 



004502 001402 



004504 
004506 
004510 

004512 
004520 



004522 
004524 
004526 
004532 

004534 
004540 
004542 
004544 
004546 
004550 
004552 
004554 
004560 

004562 
004564 
004566 



020105 
101401 
010501 

132737 
001101 



020304 
103430 
105737 
001002 

012713 
020213 
001421 
010046 
010146 
010301 
010200 
004767 
000045 

012601 
012600 
105737 



004572 001005 

004574 010200 

004576 004767 

004602 000046 



017776 
000405 

020000 
017777 



3S: 



28$: 



BR 
BIC 

BEO 
TST8 
6MI 
CMP 
BHIS 



28$ 

#17776. R3 

14$ 
a«REL 
14$ 
R3.R5 
14$ 



;IF R5 LESS THAN 20000 THEN WE 



31$: 



000001 000306 



000307 
010247 



32$: 
33$: 

4$: 
6$: 



001050 



000306 



001026 



CHP 
BHIS 
MOV 
BR 

MOV 
BIS 
INC 

BEQ 

CMP 

BLOS 
MOV 

BITB 
BNE 



CMP 
BLO 
TSTB 
BNE 

MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
JSR 
45 

MOV 

MOV 
TSTB 



BNE 

MOV 
JSR 
46 



R5. #20000 
31$ 
R5,R1 
32$ 

R3.R1 

#17777,R1 

R1 

32$ 

R1-R5 

33i 

R5,R1 

#i.amsFL6 
i6i 



R3.R4 
8$ 

a#PASFLG*1 
6$ 

#10247. (R3) 

R2,(R3) 

8$ 

RO.-(SP) 
R1.-<SP) 
R3,R1 
R2,R0 
PC, ERROR 



(SP)*,R1 
<SP)*,RO 
a#PASFLG 



8$ 



.LEAVE LOU BITS OF R3 ALONE FIRST TIME IN CASE BANK 
.-CAUSE R3 TO POINT TO THE LOWEST LOCATION 
;IN THE 4K BANK UNDER TEST 

;IF ADDRESS WENT TO 0. IT MUST BE A 30K SYSTEM 
;ARE WE RELOCATED? 
.BRANCH IF YES-TEST BANKO ONLV- 
:IF R3 IS HIGHER THAN THE HIGHEST LOCATION 
.•UNDER TEST THEN EXIT 
ARE TESTING BANKO RELOCATED IN BANKO 
:IS HIGHEST TEST ADDRESS BELOW 4K? 
'BRANCH IF NO 

•SET R1 TO HIGHEST TEST ADDRESS IN BANKO 



SET R1 TO LOWEST CURRENT TEST ADDRESS 

SET LOW ORDER ADDRESS BITS 

CAUSE R1 TO POINT TO THE HIGHEST L0CATI0Nt2 

OF THE 4K BANK BEING POINTED BY R3 

BRANCH IF R1 WENT TO 0 (WHICH MIGHT 

HAVE HAPPENED IF TESTING A 30K LSI SYSTEM) 

COMPARE R1 TO HIGHEST ADDRESS UNDER TEST 

BRANCH IF WITHIN RANGE 

SET R1 TO THE MAXIMUM AVAILABLE MEMORY 

IS THE LOWEST BIT OF LOCATION PASFLG 
SET? IN WHICH CASE BACK GROUND HAS 
ALREADY BEEN WRITTEN AND WRITE RECOVERY 
TEST IS BEING PERFORMED 

OTHERWISE WRITE THE BACKGROUND 

DEFINED AT STEP 3. 

IS THE TEST JUST DOING READ, I.E. 

IS THE PASFLG^I LOCATION NON ZERO? IF SO 

THEN GO TO 6$ 

WRITE THE LOCATION WITH THE OP CODE FOR MOV R2.-(PC) 
READ (R3) TO CONTAIN CORRECT DATA 

SAVE RO 

AND R1 ON THE STACK 

SET ROs GOOD DATA FOR ERROR PRINTOUT 
*ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 45»»**** 

RESTORE R1 
AND RO 

IF PASFLG IS 0 AND THE MEMORY DOES NOT HAVE 
THE PROPER DATA THEN WE DON'T WANT TO GO AND 
EXECUTE THE INSTRUCTIONS STORED IN MEMORY UNDER 
TEST 

BRANCH IF PASFLG NOT =0 



R2.R0 ;SAVE FOR ERROR REPORT 
PC, ERROR ;*ERROR* REPORT ERROR MESSAGE 

;******ERROR NUMBER 46****** 



fNHWA »<AC>11 50(1046) 
CNKMAA.PM 27-DEC-82 



8126 
81 ?7 
8128 
8129 
8130 
8151 
8132 
8133 
8134 
8135 
5136 
8137 
8138 
8139 
8143 
(1) 
(1) 
8144 
8145 
8146 
8147 
8148 
8149 
8150 
8151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 
8170 
8171 
8172 
8173 
8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 



004604 000663 



004606 
004612 
004616 
004620 
004622 
004624 
004626 
004632 
004634 



062705 
162701 
020105 
105014 
020103 
103405 
105737 
001002 
012711 



27-DEC-82 
15:15 



000002 
000002 



000307 
177667 



13: 



16 PAGE 
T13 



8S: 



6«.-5 

^RITE RECOVERY TEST 

BR END12 

ADD «2.R5 

SUB *2.R1 

CMP R1,R5 

BHIS 12$ 

CHP R1.R3 

BLO 10$ 

TSTB a«PASFLG^1 

BNE 10$ 

«0V *177667,(R1) 



H 4 



004640 
004642 
004644 
004650 


02001 1 
001403 
004767 
000047 


000760 




10$: 


CMP 
BEG 
JSR 
47 


RO.(RI) 
12$ 

PCERROR 


004652 
004654 


020301 
103722 






12$: 


CMP 

BLO 


R3.R1 
4$ 










.-RETURN 


HERE AFTER PROGRAM F 


004656 
004662 


062703 
000666 


020000 




11$: 


ADD 
BR 


#20000 «R3 
3$ 


004664 


122737 


000001 


000306 


14$: 


CHP8 


#1,a«PASFLG 


004672 


001437 








BEQ 


24$ 


004674 


103627 








BLO 


END1C 


004676 


105137 


000307 






COMB 


a#PASFLGO 


UU*t r Uc 

004704 


012702 


005141 






BNE 

nov 


2$ 

«S14UR2 


004710 
004714 


012700 
060700 


177740 






MOV 
ADD 


f13$-.-6.R0 
PC.RO 


004716 
004722 


105237 
000630 


000306 




15$: 


INC6 
BR 


amSFLG 
2$ 


004724 
004732 
004754 
004740 
004742 
004746 
004 754 


032777 
001016 
105737 
001013 
004767 
051524 
047102 


000020 

000042 

001644 
030524 
000113 


173516 
020063 


16$: 


BIT 
BNE 
TSTB 
BNE 

JSR 
.ASCI2 


#20,a$UR 
18$ 

a«A2 

18$ 

PCPNTMES 
/TST13 BNK/ 



^EQ 0046 

.ABORT TST 13. 

.INCREMENT R5 Br 2 
.DECREMENT R1 BY 2 

.-WRITE THE BACKGROUND DEFINED AT STEP 4. 

.-HAS STORING THE 177667 REACHED WHERE '>10V R2.-<PC) IS"* 
.BRANCH IF YES DON'T DESTROY THE MOV R2.-(PC) IS. 
;IS THE THE READ ONLY CHECK PASS? 
'BRANCH IF YES 

i'URITE THE LOCATION WITH THE COMPLEMENT OF THE 

;0P CODE JMP (RO) 

;READ R1 TO CONTAIN CORRECT DATA 

.-•ERROR* REPORT ERROR MESSAGE 
;******ERROR NUMBER 47*«**** 

.-IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK 
.-THEN REPEAT FROM 4$ 

IN BANK UNDER TEST 

.•OTHERWISE GO TO THE NEXT 4K BANK 



THE PROGRAM CONTROL COMES HERE AS FOLLOWS 

1- PASFLG=0. PROGRAM HAS JUST COMPLETED A 
WRITE/READ CYCLE FOR THE BACK GROUND 

AND WANTS TO BEGIN THE WRITE RECOVERY TEST 

2- PASFLG=1. PROGRAM HAS JUST COMPLETED 
THE WRITE RECOVERY TEST AND WANTS TO 
READ MEMORY FOR CORRECT DATA 

3- PASFL6-2. PROGRAM HAS CORRECTLY READ THE 
MEMORY AND WANTS TO GO THE NEXT TEST. 

ENTER HERE WITH PASFLG=0« ON THE FIRST ENTRY 
ENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND 
ENTRY DISABLE READ ONLY 

PLACE THE OP CODE FOR INSTRUCTION COM -(Rl) 
IN R2 

PLACE THE RETURN ADDRESS IN RO AS 13$ 
THUS WHEN THE READ HECOVERV TEST REACHES 
THE MIDDLE OF THE 4K MEMORY THEN THE 
INSTRUCTION EXECUTED WILL BE JMP (RO) 
BRANCHINGING THE PROGRAM TO 13S 
INCREMENT PASFLG BY 1. 



HAS THE PRINTOUTS BEEN SUPRESSED ? 
IF SO THEN 60 TO 18$ 
IS THE PROGRAM RUNNING UNDER ACT? 
BRANCH IF YES 
TYPP THE BANK UNDER TEST 



CNKHA HACm 30(1046) 27-DEC-82 
C'lKHAA.FII 27-DEC-82 13:15 



8182 
8183 
8184 
8185 
8186 
8187 
8188 
8189 
8190 
8191 
8192 
8193 
8194 
8195 



004760 004767 002454 
004764 004767 001650 

004770 000113 



004772 105137 000307 
004776 012700 000110 
005002 000745 



13:16 PAGE 
T13 



18S: 



24$: 



6^-4 

WRITE RECOVERY TEST 



.EVEN 

JSR 

JSR 

JHP 



torn 

NOV 
BR 



PC.GETBNK 
PC.fTPOEC 

(R3) 



a«PASFLG^1 

#110,R0 

15S 



;TST13 EXITS VIA END12. 



4 

^EO 004 7 

;GET BANK NO. UNDER TEST INTO DECWRD FOR PRIM. 
.•TYPE BANK NO. UNDER TEST 

.•BEGIN EXECUTING NOV R2,-(PC) .CON -(R1) SEQUENCE IN TES 



PLACE THE OP CODE FOR JNP (RO) IN RO 
READ THE NENCRY FOR CORRECT DATA AFTER 
INCRENENTING PASFLG TO 2 
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8200 


00500A 


012737 


000377 


8201 


005012 


105737 


000276 


8202 


005016 


001065 




8203 








820A 


005020 


032777 


001000 


8205 


005026 


001046 




8206 


005030 


105737 


000A05 


8207 


00503A 


100420 




8208 


005036 


112737 


000200 


8209 








8210 








8211 








8212 








8213 


0050AA 


004767 


001 5A2 


82U 


005050 


042522 


0A7514 


8215 








8216 


005056 


013705 


000340 


8217 








8218 


005062 


014445 




8219 


00506A 


020427 


000430 


8220 


005070 


101374 




8221 


005072 


000165 


000050 


8222 








8223 








8224 








8225 








8226 


005076 


013705 


000346 


8227 


005102 


105737 


000405 


8228 


005106 


100016 




8229 








8230 


005110 


012704 


000430 


8231 


0051 1A 


012524 




8232 


005116 


020537 


000340 


8233 


005122 


103 774 




82 3A 


0051 2A 


105037 


000405 


8235 


005130 


010537 


000346 


8236 


0051 3A 


012706 


000500 


8237 


0051A0 


010637 


000350 


8238 


0051AA 


000137 


005150 


8239 








82A0 








82A1 








82A2 


005150 


105737 


000315 


82A3 


0051 5A 


001073 




82AA 


005156 


00A767 


001702 


82 A 5 








82A6 


005162 


105737 


000276 


82A7 


005166 


001 A62 




82A8 


005170 


000A02 




82A9 


005172 


00A767 


002036 


S2?U 


0051 to 


A1 07A¥ 


AAAV^/ 


8251 


005202 


m7t7 


002142 


8252 








8253 


005206 




020000 


825A 








8255 


005212 


020237 


172342 



16 PAGE 64-5 
PARITY OR RELOCATE? 



RELOC: 



J A 



SEO 0C48 



NOV 


#3 77, a#BAIC PAT 




TSTB 


a#nnAVA 


IS THE MEMORY MANAGEMFNT BEING TESTED ? 


BNE 


CONTW 


IF SO THEN GO TO CONTMM AND CONTINUE TESTING 






ncMURT nANAucMcNT 


BIT 


«1000,9SUR 


■RELOCATION WANTED? 


BNE 


CKDONE 


'BRANCH IF NO 


TSTB 


9#REL 


'IF THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO 


BMI 


RELOER 


- PLACE THE PROGRAM BACK IN LOWER CORE 


novB 


«200,a#REL 


•OTHERWISE PREPARE TO RELOCATE 



.•RELOCATE THE DIAGNOSTIC TO HIGHEST AVAILABLE MEMORY 



2S: 



JSR PC.PNTHES 

.ASCIZ /RELOC/ 
.EVEN 

MOV 9«MAXMEH,R5 

MOV -(RA).-(R5) 

CMP RA.«BEGIN-50 

BHI 2% 

JMP SO(RS) 



.-TYPE "REL" 



.•PREPARE TO LOAD THE PROGRAM IN THE HIGHEST 
.•AVAILABLE MEMORY 
.•RELOCATE THE PROGRAM 

.•NEITHER RELOCATE NOR TEST LOCATIONS LOWER THAN BEGIN-50 



;*RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY 



RELOER: MOV 
TSTB 
BPL 

MOV 

2$: MOV 
CMP 
BLO 
CLRB 
MOV 
MOV 
MOV 

CKDONE: JMP 



LOWER: TSTB 
BNE 

TSTMM: JSR 

TSTB 

BEQ 

BR 

CONTMM: JSR 
SCNTMM: MOV 
JSR 

MOV 

CMP 



8«SAVR5.R5 

a#REL 

CKDONE 

«BEGIN-50,RA 
(R5)t.(RAW 
RS.afHAXHEM 
2S 

a«REL 

R5.a«SAVR5 
#BEGIN.SP 
SP.a«SAVR6 
a«LOWER 



a#SAVKBB 

STPSTK 

PC.HEHHNG 

a«MHAVA 

ENDPAS 

SCNTMM 

PC.UPHH 

«L0WTW0.R3 

PC.GETSIZ 

#20000. R A 

R2.a#1725A2 



•RESTORE R5 

•IS DIAGNOSTIC IN RELOCATED STATE? 
.•BRANCH IF NO 

; PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 



SAVE R5 

RESET STACK TO LOWER MEMORY 

'BEGIN" USES THIS TO RESET THE STACK. 

TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE 



HERE DUE TO *C TYPED? 
BRANCH IF YES (TYPE ERROR STACK) 
SET THE REGISTERS IF THE MEMORY MANAGEMENT 
IS AVAILABLE 

IS MEM. MANAG. AVAILABLE ? 

BRANCH IF NO 

BEGIN TESTING ABOVE 28K 

GO TO UPDATE MEM. MANAG. REGISTERS 

MAKE R3 POINT TO THE LOCATION LOWTWO 

LOAD BITS 6-10 OF R2 WITH THE BITS 13-17 
OF THE LOWEST ADDRESS UNDER TEST 
MAKE RA POINT TO THE LOWEST LOCATION IN THE BANK 
POINTED BY PAGE ADDRESS REGISTER 1 (PARI) 
IS THE CONTENT OF R2 LOWER THAN THE CONTENT OF 
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13:16 PAGE 64-6 

PARITY OR RELOCATE? 



K 4 



SEQ 0049 



8256 
8257 
8258 
8259 
8260 
8261 
8262 
8263 
8264 
8265 
8266 
8267 
8268 
8269 
8270 
8271 
8272 
8273 
8274 
8275 
8276 
8277 
8278 
8279 
8280 
8281 
8282 
8283 
8284 
3285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8293 
8294 
8295 
8296 
8297 
8298 



005216 
005220 

005222 
005226 
005232 



005236 
005242 
005244 
005250 
005254 
005256 



005262 
005264 

005270 
005274 
005276 
005300 
005302 
005306 

005310 
005312 
005314 
005316 
005322 
005324 
005330 



103405 
050104 

162702 
004767 
004767 



004767 
010005 
004767 
004767 
010013 
000167 



010046 
012700 

162716 
050116 
020240 
001410 
020027 
101370 

005720 
021002 
003006 
012716 
012600 
062700 
000207 



000200 
001636 
002112 



000020 

002100 
000006 

174256 



172356 
020000 

172340 



157776 
000002 



2$: 



BLO 
BIS 

SUB 
JSR 
JSR 



JSR 
NOV 
JSR 
JSR 

nov 

JMP 



2% 

R1,R4 

#200. R2 

PCNHREG 

PC.GETSIZ 



PC, MAX ADR 

R0,R5 

PCGETSIZ 

PCNAXADR 

R0,(R3) 

CLRNEM 



PARI ? 

IF SO THEN GO 2S 

SUBROUTINE GETSIZ LOADED R1 WITH BITS 0-12 
OF LOUADD WHICH HAVE NOW BEEN LOADED IN R4 

SET MEM. HANAG. REGISTERS 
PLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED 
IN BITS 6-10 OF R2. #160000 IN RO AND BITS 0-12 
OF LOCATION HI6HADD IN R1 

GET THE ADDRESS OF MAX. HEM. UNDER TEST 

PREPARE TO SET UP LOCATION MAXNEM 

GET THE NAXINUn ADDRESS OF AVAILABLE MEMORY 

AND STORE INTO 'TIAXMEM" 

GO TEST A 24K SLICE ABOVE 28K. 



MAXADR - SUBROUTINE TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K. 
REGISTERS: 

R0> ON ENTRY= #160000 AND ON EXIT=HIGHEST VIRTUAL ADDR. UNDER TEST 
RU LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS 
R2: PAR BLOCK NO. CURRENTLY UNDER TEST. 



MAXADR: MOV 
MOV 

:**BEGIN LOOP 
h: SUB 
BIS 
CMP 
BEQ 
CMP 
BHI 

:**END LOOP TO 
TST 
CMP 
BGT 
MOV 

3S: MOV 
ADD 
RTS 



005332 022626 



CMP 



RO.-(SP) 
#172356. RO 
TO FIND PAR ADDRESS 
#20000, (SP) 
RI.(SP) 
R2,-(R0) 
3S 

R0.#172340 
2$ 

FIND PAR ADDRESS 
(PO)* 

(R0).R2 ;IS THE 
4$ 

#157776. CSP) 
(SP)*,R0 
#2.R0 
PC 

(SP)*,(SP)* 



PUT MAXIMUM AVAILABLE ADDRESS ON STACK 
R0=PAR7 UNIBUS ADDRESS 
UNDER TEST 
DECREMENT VIRTUAL ADDRESS BY 4K 
SET BITS 11:0 TO MAXIMUM VIRTUAL TEST ADDRESS 
DOES CURRENT PAR= TEST BLOCK NO.? 
BRANCH IF YES 
ARE WE AT PARO? 
NO KEEP TRYING 
UNDER TEST 

SET TO PAR CURRENT 
PAR BLOCK UNDER TEST GTR THAN ALLOWED? 
BRANCH IF YES (FALL INTO ENDPAS) 
EXIT WITH MAXAOR= 28K SEGMENT TEST SIZE 
SET RO TO MAXIMUM VIRTUAL TEST ADDRESS 
MAKE MAXIMUM MEM0RY^2 
AND EXIT MAXADR ROUTINE 

FIXUP STACK 

AND FALL THRU TO ENDPAS. 
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8303 










TVPE 


8304 












8305 










;• 


8306 










;• 


8307 










;• 


8308 












8309 












8310 












8311 


005334 


032777 


000020 


173106 ENDPAS: 


BIT 


8312 


005342 


001055 






BNE 


C313 


005344 


012746 




STPSTK: 


MOV 


8314 












8315 


005350 


012701 


007744 




MOV 


8316 












8517 


005354 


012703 


000376 


TYPSTK: 


MOV 


8318 


005360 


005216 






INC 


8319 


005362 


020137 


000310 




CMP 


8320 


005366 


103043 






SHIS 


8321 


005370 


112702 


A A A M 

000022 




MOVB 


8322 


005374 


105302 




RETSTK: 


DECS 


8323 


005376 


002766 






BLT 


8324 












8325 


005400 


105721 






TSTB 


8326 


005402 


001774 






BEQ 


8327 


005404 


020227 


A A A A *% A 

000020 




CMP 


8328 












8329 












8330 


005410 


4 A9 / t\t 

103404 






BLO 


8331 


005412 


101026 






BHI 


8332 












8333 


005414 


A A / ^ M ^ 

004767 


A A 4 AAA 

001000 




JSR 


8334 


005420 


A A A / A J 

000404 






BR 


8335 


005422 


A 4 A *% 9^ 

010237 


A A A9 4 *^ 

000312 


2$: 


MOV 


8336 












8337 


005426 


AA t ^ 

004767 


A A 4 *% A *^ 

001202 




JSR 


A t> V A 

8338 


005432 


011637 


A A A 9 4 

000312 


FAILNM: 


MOV 


8339 


005436 


A A / ^ 

004767 


A/\ 4 4^^ 

001176 




JSR 


8340 


A A P / / *^ 

005442 


A Af A / 9 

005043 






CLR 


8341 


005444 


114113 






MOVB 


8342 












8343 


/\/\C ltd. 

005446 


4 AC A^4 

105021 






/* 1 nn 

CLRB 


8344 


005450 


005043 






CLR 


8345 


005452 


105237 


A '^ A9 4 / 

000314 




INCB 


034o 


UU)436 


r\t\i 7it7 
UU4 f Of 


UU 1 316 




ICD 

Jan 


8347 












8348 


005462 


012703 


000376 




MOV 


8349 


005466 


000742 






BR 


8350 


005470 


004767 


000750 


PARFL: 


JSR 


8351 


005474 


000756 






BR 



L 4 

) ERROR STACK SEQ 0050 

ROUTINE FOR ERROR STACK 



THIS ROUTINE IS USED TO DETERMINE IF TYPE OUT OF THE ERROR STACK 
FOR ONLY THE FAILING BITS IS REQUIRED OR NOT 



«20,aSUR 
SEOP 

#-1,-(SP) 
#ENDPRG,R1 

#376, R3 

(SP) 

R1 ,a#ENDSTK 
SEOP 
#18.. R2 

R2 ;IF ALL 

TYPSTK 

(RD* 

RETSTK 

R2,#16. 



2$ 

PARFL 

PC.TPADER 

FAILNM 

R2«a#DECURD 

PC.TVPDEC 
(SP),a#DECURD 
PC.STPOEC 
-(R3) 

-<R1),(R3) 

(RD* 
-(R3) 
a#TYPCNT 
PCRPTOCT 

#376,R3 
RETSTK 
PCTPPRER 
FAILNM 



;ARE UE GOING TO TYPE THE ERROR STACK AND END OF PASS? 
:IF NOT THEN GO TO SEOP 

;THE PROGRAM HAS REACHED THE END AND ERROR 
.•STACK AND END OF PASS WILL BE TYPED OUT 
.•PLACE THE STARTING ADDRESS OF THE ERROR STACK 
:FOR 0 TO 4K MEMORY IN R1 

:IF UE HAVE GONE THRU THE ENTIRE 

;HAS THE END OF THE ERROR STACK BEEN REACHED ? 

.•THEN GO TO TYPE END OF PASS 

16 BITS OF THIS BANK HAVE BEEN CHECKED. 
BEEN CHECKED FOR ERROR THEN SEE IF THERE 
IS ANY MORE 4K MEMORY BANK 
OTHERWISE CHECK THE BYTE STORED AT (R1) 
IF IT IS 0 WE WILL NOT TYPE IT 
IS THE POINTER POINTING TO ERROR STACK BYTE 
MEANT FOR COLLECTING ADDRESS FAILURES FOR 
THE SPECIFIC MEMORY BANK 
IF NOT THEN GO TO TYPE BIT NUMBER 
IF IT IS POINTING TO THE STACK LOCATION INTENDED 
TO COLLECT PARITY FAILURES THEN GO TO PARFL 
OTHERWISE TYPE "ADDRESS ERROR" 

PREPARE TO TYPE THE NUMBER OF THE FAILING BIT 
IN DECIMAL 

CO TO TYPE THE BIT NUMBER IN DECIMAL 
PREPARE TO TYPE THE PAGE NUMBER 
IN DECIMAL 

PREPARE TO PRINTOUT THE NUMBER OF TIMES THIS 
FAILURE OCCURED 
CLEAR THE ERROR STACK 

ENABLE THE TYPE OUT OF 1 WORDS 

TYPE THE 4K BANK AND THE NUMBER OF TIMES 
THIS FAILURE WAS SEEN 

RESET SCRATCH STACK FOR EACH BIT PRINTED. 
TYPE "PAR ERR" 
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n 4 



SEO 00^1 



O j3D 








O 53 ' 








0 J 50 
















O 50U 








O jD 1 








O JOC 








O JSJ J 








O jOH 








O JO J 








O jQO 








O JO f 




UU JUUC 






Uv J J\J\J 


\)\)H IK)! 


00?01t 

UUcU 1 H 


O JD y 


vv J JUH 


1 U J r J r 


000X1 5 

UUU J 1 J 


O J f u 


UU J J 1 u 


UU 1 UH J 




O J ' 1 


vu J J 1 c 


00S?^7 

UU JC Jr 


000^0^ 

UUUHUO 


O J r c 


vU J J 1 W 


U JC r » » 


000040 


O J r J 


Uv J JC** 


00101? 

UU 1 U 1 c 




O J » H 




00t7A7 

UwH f Of 


00105? 

UU 1 U Jc 


O J r J 


005532 


0^05?0 

wHU JC V 


wJ I JC J 


O J f o 








8^77 

O J » f 


Uv J JH\J 


01 ^7^7 

U 1 J f J » 


000^0^ 

UUU"*UO 


O J ' o 


Uv J JHO 


00/.7<'i7 


0010^^ 

UU 1 uoo 


O J » ' 


UU J J Jc 


01 ^700 

U 1 J ' UU 


0000^? 


O JOu 


UU J J JO 
UU J JOU 


001^05 

UU 1 HU J 




O JO 1 


UUH f O » 


00001? 

Uvvw 1 C 


8^8? 

O JOC 


UU J JOH 


000005 




8^8^ 

O JO J 








8^8^ 

O JOH 








O JO J 








8^8A 

O JOO 


UU J JOO 


000177 

Vw V 1 -J f 


000164 


O JOf 








O JOO 


00557? 

vv J J » C 


0001 ?7 


000? 50 


8^89 

O JO~ 










005576 


004767 


001616 

vv ' V 1 V 


8^91 


00560? 


013704 


000344 




005606 


014445 




8^93 


005610 


0?0437 


000310 


8^94 


005614 


101374 




8395 


005616 


000207 




8396 








8397 








8398 








8399 


005620 


004767 


177752 


8400 


005624 


000167 


000400 


8401 








8402 









• END OF PASS 



TYPE "PASSr" AND DISABLE PARITY. 
ALSO SERVICE ACTH. 

AND EVERY CONSECUTIVE PASSES UNLESS BIT 4 OF tSWREG IS HIGH 



172724 



000043 
000312 



SEOP: 


CLR 




JSR 




TSTB 




BNE 




INC 




BIT 




BNE 


TYPE OP: 


JSR 




.ASCIZ 




.EVEN 




nov 




JSR 


ACT11: 


nov 




BEO 




JSR 




RESET 



R2 

PC, PARITY 
a«SAVKBB 

CTLC 

anpAss 

#40.aSUR 
ACT11 
PC.TPCRLF 
/PASS#/ 

af$PAS$,a#DECURD 
PC,$TPOEC 
af42,R0 
SDOAGN 
PCRLODER 



SET R2- PARITY MODULE DISABLE CODE 

GO DISABLE PARITY MODULES IF SELECTED. 

CONTROL-C TYPED? 

BRANCH IF YES-RESTORE LOADERS AND HALT- 
INCREMENT PASS COUNT 
•T>ASS#XX" PRINTOUT WANTED? 
BRANCH IF NO 
TYPE CR. LF. AND "IPASS*" 



COUNT 



;GET PASS 

.-TYPE IT 
GET THE NONITOR ADDRESS 
IF NONE 

RESTORE XXDP MONITOR 



SERVICE XXDP/ACTII 

JNP a#SENDAD 



SDOAGN: JMP 

RLODER: JSR 
NOV 

4S: mv 
CMP 

BHI 
RTS 



a#RESTRT 

PC.CLRHH 

a#SAVR4,R4 

-(R4),-(R5) 

R4,a#ENDSTK 

4S 

PC 



.•RETURN TO ACT11 MONITOR. 

;JUMP TO ACT SERVICE 
;REPEAT TEST IF NOT UNDER ACT11/XXDP 



:STOP MEMORY MANAGEMENT SO CAN RESTORE LOADERS 
.•RESTORE R4 UITH SAVR4 
.•RESTORE LOADERS 



.•RETURN FROM RLODER CALL 



.•CONTROL C HANDLER 



CTL*-: 



JSR 
JMP 



PC. RLODER 
APTHLT 



.•RESTORE ABS LOADER 

;IF NOT APT HALT AT FATHLT 
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N A 



SEO OOixr 



8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 

8431 

8432 

8433 

8434 

8435 

8436 

8437 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8443 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 



005630 
005636 
005640 



005642 
005644 
005650 
005654 



005660 
005662 
005666 
005672 
005674 
005700 
005704 
005706 
005710 
005712 
005716 
005720 
005724 
005726 
005732 
005734 
005740 
005742 
005744 

005746 
005752 
005756 
005760 
005762 
005766 
005770 
005772 
005774 
005776 
006002 
005004 
0C6006 
006012 
006014 
006022 



017637 
010346 
010046 



010103 
004767 
013703 
110337 



010346 
012703 
013743 
005043 
113713 
016643 
011143 
010043 
005043 
016313 
040013 
046300 
050013 
012700 
060700 
062700 
005316 
002374 
005726 

105037 
105737 
001007 
105720 
105737 
001003 
105720 
005713 
100015 
122710 
001401 
105210 
122710 
001404 
032777 
001002 



000000 



001570 
000312 
000403 



000376 
000306 

000402 
000006 



000004 
000004 
001766 
000022 



000277 
000300 



000301 



000377 

000001 
000400 



ERROR HANDLING ROUTINE 



PROGRAM COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS 
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER 



000402 ERROR: 
1$: 



MOV a(SP).a#SFATAL 
MOV R3.-(SP) 
MOV RO,-(SP) 



.•SETUP BANK NO. IN FATAL FOR APT 



172426 



MOV R1,R3 

JSR PCGETBNK 

MOV a#PBNK,R3 

M0V6 R3,a#SFATAL^1 



MOV R3,-(SP) 

MOV #376, R3 

MOV a#PASFLG,-(R3) 

2$: CLR -(R3) 

M0V6 anFATAL,(R3) 

MOV 6(SP),-(R3) 

MOV (R1),-(R3) 

MOV R0,-(R3) 

CLR -(R3) 

MOV 4<R3),(R3) 

BIC R0,(R3) 

BIC 4(R3),R0 

BIS R0,(R3) 

MOV #ENDPR6-.-2A., 

ADD PC.RO 

ADD #18.,R0 

DEC (SP) 

BGE 6S 

TST (SP)* 

CLRB a#TYPENB 

TSTB a#SPRERR 

BNE 3S 

TSTB (RO)* 

TSTB a#$ADERR 

BNE 3S 

TSTB (R0)+ 

2$: TST (R3) 

BPL 4$ 

3S: CMPB #377, (RO) 

BEQ 5S 

INCB (RO) 

5$: CMPB #1,(R0) 

BEQ 7S 

BIT #400,aSWR 

6\E 4$ 



6$: 



ERRTYP: 
IS: 



LOAD THE LOCATION SFATAL WITH THE ERROR NUMBER 
SAVE R3 

AND RO ON THE STACK 



GET VIRTUAL ADDRESS UNDER TEST FOR 6ET6NK 

GET BANK NO. UNDER TEST INTO PBNK 

GET BANK UNDER TEST 

STORE FAILING BANK NO. FOR APT 



.•TEMPORARILY STORE R3 

:MAKE R3 AS THE STACK POINTER 

.•OUTPUT THE WORD STORED AT 

;PUT ERROR NO. ON ERROR STACK 
.•PLACE THE RETURN PC AT (R3) 
.•PLACE BAD DATA, 
;AND GOOD DATA ON THE STACK 

'TAKE THE 

•EXCLUSIVE OR OF GOOD AND BAD DATA 
;T0 FIND THE BITS THAT FAILED 
;AND PLACE IT ON THE STACK 
RO;THIS CODE BRINGS THE RELATIVE ADDRESS 
:0F THE STARTING OF THE ERROR STACK 
;FOR THE SPECIFIC 4K BANK 



RESTORE THE STACK POINTER 

DISABLE ANY TYPE OUT 

IF THIS IS PARITY PROBLEM 

THEN GO TO 3S 

OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1 
IF THIS IS ADDRESSING PROBLEM 
THEN GO TO 3S 

INCREMENT THE POINTER RO BY 1 
IS BIT 15 OF (R3) SET? 
IF NOT THEN GO TO 4$ 

OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES 

IF SO DON'T BUMP ERROR COUNT 

INCREMENT THE ERROR COUNTER BY 1 

MORE THAN 1 ERROR OCCURRED ON THIS BIT? 

BRANCH IF NO 

STOP ERROR PRINTOUT AFTER 1 WANTED? 
BRANCH IF YES (DON'T TYPE ERROR) 
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SEQ 0053 



8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 

8481 

8482 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 

8516 

8517 

8518 



006024 
006030 
006034 
006036 
006042 
006044 
006050 
006052 
006056 
006060 
006062 
006064 
006066 

006074 

006100 

006104 
006110 
006112 
006114 
006120 
006122 
006130 

006132 
006134 



006146 
006152 



006156 
006160 
006164 



006166 
006166 
006172 



006200 
006206 
006212 
006216 
006222 



105237 
105737 
001403 
004767 
000411 
105737 
001403 
004767 
000403 
105720 
006313 
001342 
112737 

004767 

004767 

005037 
012600 
012603 
105737 
001404 
012737 
000442 

010246 
005777 



006140 100405 



006142 004767 



105737 
001401 



006154 000000 



012602 
062716 
000207 



004767 
051105 



017637 
105237 
012703 
013743 
005743 



000277 




7$: 


INCB 


a#TVPENB 


.'ENABLE THE TYPE OUT ROUTINE 


000300 




4$: 


TSTB 


a#SPRERR 


.•PARITY ERROR? 






BEQ 


9$ 


.■BRANCH IF NO 


000402 






JSR 


PCTPPRER 


;ELSE TYPE PAR ERR 






BR 


8$ 


:AND DON'T TEST INDIVIDUAL BIT FAILURES. 


000301 




9S: 


TSTB 


a«$ADERR 


.-ADDRESS ERROR? 






BEQ 


6$ 


.'BRANCH IF NO 


000342 






JSR 


PCTPAOERR 


.'PRINT ADR ERR 








BR 


8$ 








6S: 


TSTB 


(R0>* 


.'POINT TO NEXT ENTRY IN ERROR STACK 






ASL 


(R3) 


;IS THERE STILL AN ERROR BIT SET IN ERROR. 








BNE 


2S 


;BR IF YES - KEEP FILLING ERROR STACK 


000006 


000314 


8S: 


NOVB 


f6.a#TYPCNT 


:TELL TYPOCT TO TYPE 6 WORDS OF ERROR STACK. 






.THE STACK POINTED BY R3 


001142 






JSR 


PCPUTADR 


:G0 TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1 








;AT LOCATIONS (R3) AND (R3-2) 


000616 






JSR 


PCTYPERR 


.'TYPE ERROR STACK (7 WORDS) 


000300 




10S: 


CLR 


ai'SPRERR 


.■CLEAR ADDRESS/PARITY ERROR FLAGS 








MOV 


(SP)+,RO 


.'RESTORE RO 








nov 


(SP)*.R3 


.'AND R3 


000420 




FNDERR: 


TSTB 


9«$ENV 


;ARE UE RUNNING UNDER APT? 








BEQ 


2$ 


• ^ ft t0^ V Vll^ftl V^AV ^ Mf\ lift! V 

.'IF NOT THEN TEST FOR HALT 


000001 


000400 




nov 


#1,a#$MSGTY 


;OTHERUISE INFORM THE APT 








BR 


FATHLT 


ftk ftft 9 ftft ^ ft 9 A > ■ 9 ft A mftk i i ft # V 9 ftft ft^ ft ftft 9 

;GOTO FATHLT AND WAIT FOR APT. 






2S: 


MOV 


R2.-(SP> 


;SAVE R2 TEMP 


172310 






TST 


asuR 


:DOES THE OPERATOR REQUIRE THE PROGRAM TO HALT 










;0N ERROR 








BMI 


4S 


;IF SO THEN HALT ON ERROR 






.■CHECK 


FOR CONTROL-C KEY 




001526 






JSR 


PC.CHECKC 


;IF CONTROL-C TYPED THEN PRINT ERROR HISTORY 










ft ft ■ A ft i ^ ft ^ ^ ft V i i i V 

;AND HALT AT FATHLT. 


000042 




7$: 


TSTB 


a#42 


A f^f* i iff* Ml ifttfti V ft k#* 1 ift IM !■* f% A ^ V 

;ARE WE RUNNING UNDER ACT? 








BEQ 


6$ 


; BRANCH IF NO 






4$: 


HALT 




MM M ^M A tift^ lift! Vf*M Mft > ^ MMMM M 4 90^ MM VftiV ff ftl^ 

;PROGRAM HAS HALTED ON ERROR, R1 IS POINTING 












.-TO A LOCATION WHICH SHOULD HAVE CONTAINED 












;THE WORD STORED IN RO 






6$: 


MOV 


(SP)*.R2 


; RESTORE R2 


000002 






ADD 


#2,(SP) 


.•RESTORE THE RETURN ADDRESS 






RTS 


PC 


.•RETURN FROM THE SUBROUTINE 






FATERR: 






;TYPE cRR # 


000412 




SEQERR: 


JSR 


PCTPCRLF 


020122 


000043 




.ASCIZ 


/ERR #/ 










.EVEN 






nnnnnn 


nnn/ no 




MOV 


a(SP),a#SFATAL 




000314 






INCB 


a#TYPCNT 


.'TELL $TPNUM TO TYPE 1 WORD 


000376 






MOV 


#376, R3 


.•STPNUM USES R3 AS STACK 


000402 






MOV 


anFATAL,-(R3) 


.'PUT ERROR NO. ON STACK 








TST 


-(R3) 


.'STPNUM REQUIRES THIS 
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SEQ 0054 



8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
853/ 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
8550 
8551 
8552 
8553 
8554 
8555 
8556 
8557 
8558 
8559 
8560 
8561 
8562 
8563 
8564 
8565 
8566 
(1) 
(1) 
8567 
8568 
8569 
8570 
8571 
85^2 



006224 
006230 
006234 
006236 
006240 



006244 
006250 
006254 

006260 
006264 
006270 
006274 

006300 
006302 
006304 
006306 
006310 
006312 
006314 
006320 
006322 
006326 
006330 
006334 
006336 
006340 
006342 
006344 
006346 
006352 
006356 
006362 

006364 
006370 
006374 
006400 
006404 



004767 
105737 
001327 
000000 
000137 



012637 
011637 
013706 

010067 
010167 
013701 
012700 

005701 
001441 
006001 
103005 
005710 
100406 
020027 
002032 
062700 
000766 
042710 
011001 
006101 
006101 
006101 
006101 
042701 
105237 
004767 
000050 

016700 
016701 
013746 
013746 
000002 



000560 
000420 



000250 



000356 
000360 
000350 

000130 
000126 
000352 
172100 



172136 
000002 
100000 



000777 
000300 
177246 



000024 
000022 
000360 
000356 



JSR 

APTHLT: TST8 
BNE 

FATHLT: HALT 
JNP 



PC-FATYP ;TYPE ERROR NO. 

MSENV : RUNNING UNDER APT? 
FNDERR .'BRANCH IF YES 

.•FATAL ERROR OR *C HALT. 
a#RESTRT .RESTART TST BUT DON'T CLEAR PASS COUNT 

;IN CASE *C RESTART. 



PARERR 

PARITY TRAP HANDLER 
COME HERE FROM A TRAP TO 114. 

THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND IF ONE 
HAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS 
AND CALL THE "ERROR" ROUTINE TO PRINT ERROR MESSAGE. 
IF NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR IS DONE. 

REGISTER US AGE. 

R0= HOLDS PARITY MODULE ADDRESSES 

Pl= GETS ERROR ADDRESS FOR "ERROR" CALL. 



PARERR: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




TST 




BEQ 


1$: 


ROR 




BCC 




TST 




BMI 




CMP 




BGE 


2$: 


ADD 




BR 


3S: 


BIC 




MOV 




ROL 




ROL 




ROL 




ROL 




BIC 




INC6 




JSR 




50 




MOV 




MOV 




MOV 




MOV 




RTI 



(SP)*.a#PARSP 

(SP).a#PARPS 

a#SAVR6.SP 

RO,SAVRO 
R1.SAVR1 
a#PARHAP.R1 
#1721 00. RO 

R1 
4S 

R1 
2$ 
(RO) 
3$ 

RO. #172136 
4$ 

#2.R0 : POINT 

1$ 

#100000, (RO) 
(R0),R1 
R1 
R1 
R1 
R1 

#777. R1 
a#$PRERR 
PC. ERROR 



SET PARSP TO RETURN ADDRESS 
SAVE PSU FOR RETURN 

AND RESET THE SP SINCE NOT ENOUGH STACK ROOM 
TO COMPLETE THE ERROR SERVICE ROUTINE. 
SAVE RO DURING PARITY SERVICE 
SAVE R1 DURING PARITY SERVICE 
GET PARITY AVAILABLE NAP 
R0= FIRST PARITY ADDRESS. 

ANY PARITY MODULES AVAILABLE? 
BR IF NO -FATAL ERROR- 
SHIFT PARITY MAP BIT INTO C BIT. 
BRANCH IF THIS PARITY MODULE NOT AVAILABLE. 
PARITY MODULE ERROR BIT SET? 
BRANCH IF YES -CALL "ERROR" ROUTINE 
DONE ALL PARITY MODULES? 
,BR IF YES- GO TO FATAL ERROR CALL- 
TO NEXT PARITY ADDRESS 
AND KEEP TRYING 
CLEAR PARITY ERROR BIT. 
GET PARITY MODULE CSR 
SHIFT ERROR ADDRESS BITS 11-5 INTO 15-9 



:SAVE ERROR ADDRESS ONLY 

TELL "ERROR" PARITY ERROR CALL. 
*ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 50****** 



SAVRO.RO 
SAVR1.R1 
a#PARPS,-(SP) 
a#PARSP.-(SP) 



RESTORE RO 
RESTORE R1 

SET RETURN PSU ON STACK 

AND SET RETURN ADDRESS ON STACK 

RETURN TO TEST WHERE PARITY TRAP OCCURRED. 



CNKMA 
CNKNAA 

8573 
8574 
(1) 
(1) 
(1; 
8575 
8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 

8586 
8587 
8588 
8589 
8590 
8591 
8592 

8593 
8594 



MAC VII 30(1046) 27-DEC-82 
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006406 

006406 004767 
006412 0000S1 



006414 000000 
0064 K. 000000 



177554 
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0 5 



006420 105737 000277 

006424 001406 

006426 004767 000160 

006432 042101 020122 051105 

006440 000122 

006442 000207 

006444 105737 000277 

006450 001406 

006452 004767 000134 

006456 040520 020122 051105 

006464 000122 



SEO 0055 



:C0nE HERE IF NO PARITY ERROR FLAG FOUND SET 
41 . 

JSR PC.FATERR .•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 

51 ;**«***ERROR NUMBER 51**»*** 

;R0*R1 ARE SAVED HERE FOR PARITY TR^P DUE TO INSUFFICIENT 
.•STACK SPACE BETWEEN 500-450. 

SAVRO: 0 :SAVE RO DURING PARITY TRAP SERVICE 

SAVR1: 0 ;SAVE R1 DURING PARITY TRAP SERVICE 



TPADER: TSTB a«TYPENB 

BEQ 1$ 

JSR PC.PNTHES 

.ASCIZ /ADR ERR/ 



TYPE ERROR? 
BRANCH IF NO 
TYPE CR. LF AND 



•ADR ER* 



IS: 



.EVEN 
RTS 



PC 



TPPRER: TSTB a#TYPENB 

BEQ IS 

JSR PC.PNTMES 

.ASCIZ /PAR ERR/ 



.•ERROR PRINTOUTS ALLOWED? 
; BRANCH IF NO 

;60 TO TYPE CR, LF AND "PAR ERR" 



006466 000207 



IS: 



.EVEN 
RTS 



PC 
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E 5 



SEO 0056 



8599 

8600 

8601 

8602 

8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

86U 

8615 

8616 

8617 

8618 

8619 

8620 

8621 

8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 

8643 

8644 

8645 

8646 



006470 
006472 
006476 
006500 
006502 
006504 
006506 
006510 
006514 
006516 
006520 
006524 
006526 
006530 
006532 
006536 
006542 
006544 

006546 
006554 
006556 
006562 
006564 
006570 

006572 
006576 

006602 

006604 
006610 



006612 
006620 
006622 
006630 
006632 



010146 
016601 
105721 
001376 
000412 
010146 
010046 
016601 
112100 
001403 
004767 
000773 
012600 
005201 
042701 
010166 
012601 
000416 

132737 
001005 
105737 
100375 
110037 
000404 

004767 
005015 
006602 
000207 

004767 
000735 



032777 
001323 
123737 
001717 
000764 



TVPE OUT ROUTINE 



THIS ROUTINE IS USED BY THE PROGRAM TO TYPE OUT ANY CHARACTER 





NOT VP: 


nov 


R1 «-(SP) 




000002 




MOV 


2<SP)-R1 






4S: 


TSTB 


(RD* 


'IF THIS TYPE OUT HAS BEEN SUPRESSED THEN 






BNE 


4S 


■PREPARE TO RETURN 






BR 


RETTYP 






ITYPE: 


NOV 


R1 ,-(SP) 


;SAVE R1 






nov 


QO.-(SP) 


;AND RO ON THE STACK 


000004 




nov 


4(SP).R1 


; PLACE THE ADDRESS OF MESSAGE TO BE TYPED 

0 ■ b** w b ■ V lb n wnb w w w • ■ lb w «#nwb I W Ub 1 ■ ' b V 




2S: 


NOVB 


(R1)*.R0 


:PLACE THE BYTE TO BE TYPED IN RO 

0 ■ b'vbb ■ > 'b W ■ ' b ' W Wb ■ ■ ■ b V A nW 






BEO 


4$ 


-IF IT IS END OF MESSAGE THEN GO TO 4S 

fA* A' b*vlF W ■ ■ Vb V w*^ ■ ' 'b •« WW I V ~ v 


000022 




JSR 


PC. STPCHR 


-OTHERWISE GO TO TYPE THE CONTENTS OF RO 






BR 


2$ 






4S: 


MOV 


(SP)+,RO 


.-RESTORE RO 




RETTYP: 


INC 


R1 


•CAUSE R1 TO 


000001 

wwww ■ 




BIC 


#1 ,R1 


; POINT TO EVEN ADDRESS 


000002 




MOV 


R1 .2(SP) 


.-MODIFY THE RETURN ADDRESS 






NOV 


(SP)*,R1 


.-RESTORE R1 






BR 


EXTYP 


.-AND RETURN VIA RTS PC 


000040 000421 


STPCHR: 


BITB 


#40.a#$ENvn 


.-HAVE TYPE OUTS BEEN DISABLED? 






BNE 


4S 


;IF SO THEN RETURN FROM THE SUBROUTINE 


177564 


2S: 


TSTB 


anTPs 


.-WAIT HERE 






BPL 


2S 


.-UNTIL THE PRINTER IS READY 


177566 




MOVB 


R0,a«$TPB 


.-LOAD DATA TO BE TYPED INTO DATA REG. 




4$: 


BR 


EXTYP 


.-RETURN 


177706 


PCRLF ; 


JSR 


PC.STYPE 




000 


.ASCIZ 


<15><12> 


.-CR/LF 






.EVEN 






EXTYP: 


RTS 


PC .-RETURN 




177762 


TPCRLF : 


JSR 


PC. PCRLF 


.-TYPE CR/LF 






BR 


STYPE 


;NOU GO TO TYPE THE REST OF THE MESSAGE 



000020 171630 PNTMES: 
000042 000046 



BIT 

BNE 

CHPB 

BEO 

BR 



#20.aSUR 

NOTYP 

af42.a#46 

NOTYP 
TPCRLF 



PRINTOUTS ALLOWED? 
BRANCH IF NO 
RUNNING UNDER ACT 11? 
BRANCH IF YES -NOT PRINTOUT- 
SEND CR/LF AND TYPE MESSAGE. 







30(1046) 


27-OEC 


-82 13: 


16 PAGE 


64-14 


F 




C 1 1 








DfMlT IMP 
nUU I live 


Tn TVPF 


UU ■ n WC 1 1 nfIL 


8651 
















8652 












;• ROUTINE TO TYPE OUT 


8655 
















8654 












; • 




8655 












; » 


THIS ROUTINE I 


8656 












; » 


DECURO TO DEC I 


8657 












; » 




8658 
















8659 


006634 


004767 


}77712 




TYPOEC: 


JSR 


PCPCRLF 


8660 
















8661 


006640 


005046 






STPOEC: 


CLR 


-(SP) 


8662 


006642 


013746 


000312 






nov 


a#OECyRD,-(SP) 


8665 
















8664 


006646 


162716 


000012 




2S: 


sue 


#10.,(SP) 


8665 


006652 


002403 








BLT 


4S 


8666 
















8667 


006654 


005266 


000002 






INC 


2(SP) 


8668 


006660 


000772 








BR 


2$ 


866V 


006662 


062716 


000012 




4S: 


ADD 


#10. .(SP) 


8670 


006666 


052716 


000060 






BIS 


#60. (SP) 


8671 


006672 


112667 


000020 






nov8 


(SP)*.6$-2 


8672 


006676 


052716 


000060 






BIS 


#60. (SP) 


8675 


006702 


112667 


000007 






NOVB 


(SP)*.6$-3 


8674 


006706 


004767 


177572 






JSR 


PC.STYPE 


867S 














8676 


006712 


020040 


030040 


000060 




.ASCIZ 


/ 00/ 


8677 












.EVEN 




8678 


006720 


000207 






6S: 


RTS 


PC 



NUMBER 



bfO C! 



.•TYPE CR/LF 



GET THE WORD THAT HAS TO BE CONVERTED TO A 
DECIMAL NUMBER 

IF THE NUMBER IN (SP) WAS LESS THAN 10. THEN 
GO TO 4S 

OTHERWISE ADD 1 TO THE LOCATION STORING 10'S DIGIT 
AND RETURN TO 2$ 

MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

PLACE THE rs DIGIT TO BE TYPED 

MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

PLACE THE lO'S DIGIT TO BE TYPED 

GO TO TYPE THF NUMBER IN DECIMAL FOLLOWED BY 

3 SPACES 



.•RETURN .OM THE SUBROUTINE 



• OCTAL TYPE OUT ROUTINE 
» 

* 

» 



171520 TYPERR: BIT 
BNE 
JSR 
JSR 
BR 

OCTTYP: MOV 
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8683 
868A 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8693 
869A 
8695 
8696 
8697 

8698 006722 032777 020000 

8699 006730 001054 

8700 006732 004767 177634 

8701 006736 004767 000012 

8702 006742 000447 

8703 006744 012123 
8704 

8705 006746 012113 

8706 006750 105237 000314 

8707 006754 052743 000004 TYPOCTi 

8708 006760 106113 2$: 

8709 006762 103376 

8710 006764 005000 

8711 006766 106113 

8712 006770 006100 

8713 006772 106113 

8714 006774 006100 

8715 006776 000405 

8716 007000 004767 177500 

8717 007004 020040 000040 
8718 

8719 007010 005000 

8720 007012 012723 000006 

8721 007016 000241 

8722 007020 006113 

8723 007022 006100 

8724 007024 052700 000060 

8725 007030 004767 177512 

8726 007034 005000 

8727 007036 006113 

8728 007040 006100 

8729 007042 006113 

8730 007044 006100 

8731 007046 105363 177776 

8732 007052 001361 

8733 007054 105337 000314 

8734 007060 001347 

8735 007062 000207 OCTXT: 



G 5 



SEQ 0058 



RPTOCT; 



FATYP: 

STPNUn: 

4$: 



nov 

INCB 

BIS 

ROLB 

BCC 

CLR 

ROLB 

ROL 

ROLB 

ROL 

BR 

JSR 

.ASCIZ 

.EVEN 

CLR 

nov 

CLC 

ROL 

ROL 

BIS 

JSR 

CLR 

ROL 

ROL 

ROL 

ROL 

DECB 

BNE 

0EC6 

BNE 

RTS 



THIS ROUTINE IS USED TO TYPE OUT THE OCTAL VALUES 
CONTROL SHOULD COME TO THIS ROUTINE WITH R3 POINTING TO 
THE LOW ORDER BITS (I.E. BITS 0-15) OF THE ADDRESS TO 
BE TYPED WHERE AS R3-2 SHOULD CONTAIN THE HIGH ORDER BITS 
(I.E. BITS 16 ft 17). CONTENTS OF LOCATION R3-1 AND RO ARE 
DESTROYED BY THIS SUBROUTINE 

BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE 
TO BE TYPED. 



#20000. aSWR 
OCTXT 
PCPCRLF 
PC.TYPOCT 
OCTXT 

(R1)*.(R3)» 

(R1)»,(R3) 
a#TYPCNT 
*4,-(R3) 
(R3) 
2$ 
RO 
(R3) 
RO 
(R3) 
RO 

$TPNUM 
PC.STYPE 

/ / 

RO 

*6,(R3)* 

(R3) 
RO 

#60, RO 
PC,»TPCHR 
RO 
(R3) 
RO 
(R3) 
RO 

-2(R3) 
4$ 

a#TYPCNT 
RPTOCT 
PC 



ERROR PRINTOUT WANTED? 
BRANCH IF NO 
TYPE CR/LF 
TYPE OCTAL NO. 
RETURN VIA RTS PC 

PLACE THE HIGH ORDER BITS AT LOCATION POINTED 
BY R3 

AND NOW PLACE THE LOW ORDER BITS 
ENABLE THE TYPE OUT OF ONE OCTAL WORD 



;GET BITS 17 S 16 INTO RO 



; TYPE 3 SPACES 



.•ENABLE THE TYPE OUT OF 6 OCTAL DIGITS 



PLACE THE CARRY FROM (R3) IN RO 
OR THE CONTENTS OF RO WITH AN ASCII 0 
TYPE THE OCTAL NUMBER STORED IN RO 



.•PLACE THE CARRY FROM (R3) IN RO 

; PLACE THE CARRY FROM (R3) IN RO 

;IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS 

•THEN REPEAT FROM 4S 

•IF ALL THE WORDS REQUIRED HAVE NOT BEEN 
.•TYPED THFN REPEAT FROM RPTOCT 



CNKMAA 

8740 
8741 
8742 
874 3 
8744 
8745 
8746 
67t,7 
8748 
8749 
8750 
8751 
8752 
8753 
8754 
8755 
8756 
8757 
8758 
8759 
8760 
8761 
8762 
8763 
8764 
8765 
8766 
8767 
8768 
8769 
8770 
8771 
8772 
8773 
8774 
8775 
8776 
8777 
8778 
8779 
8780 
(1) 
(1) 
8781 
8782 
8783 
8784 
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16 PAGE 64 
SUBROUTINE 



•16 
FOR 



H 5 

HEHORY HAKAGE«E»JT 



SEO OO^v 



007064 
007070 

007074 
007102 
007104 
007110 
007114 
007120 
007124 

007130 
007134 
007136 
007142 
007144 
007150 
007152 
007156 
007162 
007166 
007172 
007174 
007200 
007202 
007206 

007210 
007212 
007216 

007224 
007230 



012702 
105037 

032777 
001441 
012700 
01? 20 
012710 
005037 
105237 

012701 
005021 
062702 
010221 
020127 
103772 
012711 
012701 
C '21 
0:?i27 
101773 
005237 
005010 
012740 
000207 

022626 
004767 
047516 

004767 
000052 



007232 000762 



007234 
007240 



013702 
000713 



177366 
045440 

176736 



172354 



• ROUTINE TO SET UP MEMORY MANAGEMENT REGISTERS 



001400 
000276 

010000 1/1346 

000004 
007210 
000300 
177572 
000276 

172340 

000200 

172356 

007600 
172300 
077406 
172316 

177572 

000104 



MEMMNG: MOV 
NMREG: CLRB 

BIT 
BEQ 
MOV 
MOV 
MOV 
CLR 
INCB 

MOV 

CLR 

2S: ADD 
MOV 
CMP 
BLO 
MOV 
MOV 

4S: MOV 
CMP 
BLOS 
INC 

SRETMM: CLR 
MOV 

RETMM: RTS 



NOMH: 



000124 



UPMN: 



CMP 

JSR 

.ASCI2 

.EVEN 

JSR 

52 

BR 

NOV 
BR 



PROGRAM CONTROL COMES HERE TO DETERMINE IF THE MEMORY MANAGEMENT 
IS AVAILABLE OR NOT, AND IF IT IS AVAILABLE THEN WHETHER 
THE MEMORY ABOVE 28K IS REQUIRED TO BE TESTED OR NOT. 



«1400,R2 
a#MMAVA 

«10000,aSUR 

RETMM 

#4,R0 

#NOMM.(R0)« 
#300, (RO) 
a#SRO 
a#MHAVA 

#172 340. Rl 
(Rl)» 
#200, R2 
R2,(R1)» 
Rl ,#172356 
2S 

#7600. (Rl) 
#172300, Rl 
#77406. (RD* 
Rl .#17^316 
4S 

a#SRO 
(RO) 

#BUSER,-(RO) 
PC 

(SP)*,(SP)* 
PC.TPCRLF 
/NO KT/ 

PC.FATERR 



SRETMM 

a#1723S4,R2 
MMREG 



CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE 

THAT MEM. MANAG. IS AVAILABLE FOP TESTING 

HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG. ? 

IF NOT THEN RETURN FROM THE SUBROUTINE 

PREPARE TO SETUP TIME OUT VECTOR 

RETURN ADDRESS TO NQMM 

AND WITH A PSU OF 300:VER:1 

TRY TO REACH MEM. MANAG. SRO 

IF IT IS AVAILABLE THEN SET MEM. MANAG. AVAILABLE 
BYTE 

Rl IS POINTING TO PARO 
PARO WILL POINT TO BANK 0 

SETUP PAR1-PAR6 



;PAR7 IS POINTING TO THE I/O PAGE 
; SETUP PDR0-PDR7 



.'ENABLE MEM. MANAG. 

.•RESTORE TIME OUT TRAP VECTOR FOR ANY FUTURE TRAP 



.•RESTORE STACK POINTER 

;TVPE "HO MEMORY MANAGEMENT MESSAGE 



;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;**t*«.»ERROR NUMBER 52»«***» 

; RESTORE TIME OUT TRAP VECTOR 

.•PREPARE TO UPDATE MEMORY MANAG. REGISTERS 
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18 BIT ADDRESS GENERATOR 



I 5 



SEO 006U 



8789 






8790 






8791 






8792 






8793 






8794 






8795) 






8796 






8797 






8798 






8799 






8800 


007242 


005063 


8801 


007246 
007250 


010113 


8802 


105737 


8803 


007254 


001425 


8804 


007256 


010146 


8805 


007260 


042701 


8806 


007264 


0401 1 3 


8807 


007266 


052701 


8808 


007272 


006001 


8809 


007274 


103376 


8810 


007276 


062701 


8811 


007302 


011101 


8812 


007304 


052701 


8813 


007310 


006101 


8814 


007312 


103376 


8815 


007314 


006101 


8816 


007316 


006143 


8817 


007320 


006101 


8818 


007322 


006123 


8819 


007324 


050113 


8820 


007326 


012601 


8821 


007330 


000207 


8825 






8826 






8827 






8828 






8829 






8830 






8831 






8832 






8833 






8834 






8835 






8836 






8837 






8838 


007332 


016143 


8839 


007336 


005043 


8840 






8841 


007340 


116115 


8842 


007344 


000207 



177776 
000276 

017777 
004000 

172340 
010000 



2S: 



4$: 



6S: 



;• 
;• 
# 

;• 

;• 

• * 

;• 

• * 



18 BIT ADDRESS GENERATOR 



THIS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED IN R1 
IN THE LOCATION POINTED BY R3. THE ADDRESS IN R1 IS CONVERTED 
TO AN 18 BIT ADDRESS ONLY IF MEM. MANAG. IS AVILA6LE IN WHICH 
CASE THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION 
POINTED BY R3-2 



PUTADR: CLR 

nov 

TSTB 
BEQ 

mv 

BIC 
BIC 
BIS 
ROR 
BCC 
ADD 
MOV 
BIS 
ROL 
BCC 
ROL 
ROL 
ROL 
ROL 
BIS 

nov 

RTS 



-2(R3) 
R1.(R3) 

a«nnAVA 

6S 

R1,-(SP) 

#17777, R1 

R1.(R3) 

«4600,R1 

R1 

2% 

#1 72340. R1 

(RD-RI 

«10000,R1 

Rl 

4S 

Rl 

-(R3) 
Rl 

(R3)* 
R1,(R3) 
(SP)»,R1 
PC 



PLACc THE ADDRESS STORED IN Rl IN LOCATION (R3) 

IS THE MEM. MANAG. AVAILABLE ? 

IF NOT THEN RETURN FROM THE SUBROUTINE 

SAVE Rl 

CLEAR BITS 0-12 OF THE ADDRESS IN Rl 
LEAVE BITS 0-12 OF THE ADDRESS IN (R3} 
PREPARE TO SHIFT Rl BY 12 PLACES 

GET THE NUMBER OF PAR IN Rl 
GET THE ADDRESS OF PAR IN Rl 
LOAD Rl WITH THE CONTENTS OF PAR 



.'PLACE THE ADDRESS BITS 13-17 IN BITS 11-15 OF Rl 
.•PLACE BIT 17 IN LOCATION POINTED BY R3-2 
.•PLACE BIT 16 OF THE ADDRESS 

.'PLACE BITS 13-15 OF THE ADDRESS IN LOCATION (R?) 
; RESTORE Rl 

; RE TURN FROM THE SUBROUTINE 



;• 

;• 
• * 



GET ADDRESS FROH THE APT MAILBOX 



THIS SUBROUTINE IS USED TO GET ADDRESS FROM APT MAILBOX AND 
PLACE IT IN THE LOCATION USED BY THE PROGRAM TO DEFINE THE 
MEMORY BOUNDRIES. 

PROGRAM CONTROL SHOULD COME TO THIS SUBROUTINE WITH Rl POINT- 
ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO 
THE L0CAT10N«^2 WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE 
TO BE PLACED 



GETADR: NOV 
CLR 



2S: 



MOVB 
RTS 



1(R1).-(R3) 
-(R3) 

-1(R1),(R3) 
PC 



PLACE THE LOW ORDER BITS OF THE ADDRESS 

CLEAR THE LOCATION WHERE THE HIGH ORDER BITS 

HAVE TO BE PLACED 

PLACE BITS 16 t 17 

RETURN FROM THE SUBROUTINE 



007346 005046 



017777 
000040 
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8847 

8848 

8849 

8850 

8851 

8852 

8853 

8854 

8855 

8856 

8857 

8858 

8859 

8860 

8861 

8862 

8863 

8864 

8865 

8866 

8867 

8868 

8869 

8870 

8871 

8872 

8873 

8874 

8875 

8876 

8877 

8881 

8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 

8895 

8896 

8897 

8898 

8899 

8900 

8901 

8902 

8903 

8904 

8905 



J 5 
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CONVERT 18 BIT ADDRESS TO THE PAR FORM 



:* CONVERT 18 BIT ADDRESS TO THE PAR FORM 



SEO 0061 



;• 
;• 



THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED JN 
LOCATIONS POINTED BY R3 AND R3«2 TO THE FORM IT WILL BE STORED 
IN A PAR. THE RESULT IS LEFT IN R2. R1 IS LOADED WITH BITS 
0-12 OF THE ADDRESS AND RO WITH 160000 



007350 
007352 
007354 
007360 
007364 
007366 
007370 
007372 
007374 
007376 
007400 
007404 
007406 
007410 
007414 
007416 



012301 
011302 
042702 
052702 
006001 
006002 
103375 
005716 
001004 
005726 
052702 
000767 
012301 
012700 
040001 
000207 



000100 
160000 



007420 105737 

007424 001404 

007426 005037 

007432 105037 

007436 000207 



000276 

177572 
000276 



007440 010046 

007442 010346 

007444 042703 

007450 052703 



SGTSIZ: CLR 



GETSI2: MOV 
MOV 



2%: 
4S: 



6S: 



SIC 

BIS 

ROR 

ROR 

BCC 

TST 

BNE 

TST 

BIS 

BR 

MOV 

NOV 

SIC 

RTS 



-(SP) 



(R3)*.R1 

(R3).R2 

#177>7.R2 

#40, R2 

Rl 

R2 

4$ 

(SP) 

6$ 

(SP)» 

«100,R2 

4$ 

<R3)*.R1 
#1 60000, RO 
RO.Rl 
PC 



jPREPARE TO PLACE ADDRESS BITS 13-17 IN BITS 
;0-4 OF R2 



;LOAD R2 WITH THE LOW ORDER BITS OF THE ADDRESS 
.•CLEAR ADDRESS BITS 0-12 



.•ROTATE Rl AND R2 7 TIMES 

:IF RETURN PC IS ZERO THEN IT MUST BE THE 
;FLA6 THAT WAS SET AT SGTSIZ 
;POP THE FLAG OFF STACK 
;KEEP ROTATING 

.•PLACE THE LOW ORDER ADDRESS BITS IN Rl 

.•LEAVE BITS 0-12 OF THE ADDRESS IN R1 
.•RETURN FROM THE SU6R0RNE 



:* SUBROUTINE TO DISABLE MEMORY MANAGEMENT 

;* 

;* THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT 

UNIT 



CLRNM: 



TSTB 
BED 
CLR 
CLR6 
1$: RTS 



a#MMAVA 
1$ 

a«SRO 

a#MMAVA 

PC 



WAS THE MEMORY MANAGEMENT ENABLED ? 

IF NOT THEN GO TO IS 

DISABLE THE MEMORY MANAGEMENT 

AND DO NOT ATTEMPT TO TEST MEM. MANAG. 

RETURN FROM THE SUBROUTINE 



* GET BANK NO. UNDER TEST 

CALLED BY ERRTYP AND TST13 TO GET BANK NO. UNDER TEST INTO PBNK. 
REGISTERS 

RO^POINTER TO PAR UNDER TEST 
R3=VIRTUAL ADDRESS ON ENTRY 
R0«R3 ARE RESTORED ON EXIT. 



017777 
010000 



GETBNK: MOV 
MOV 
BIC 
BIS 



RO,-(SP) ;SAVE RO 

R3 -(SP) 'SAVE R3 

#1>777,R3 ;SAVE ONLY VIRTUAL BANK BITS 
#10000.R3 .-SETUP R3 SHIFT BIT 
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SUBROUTINE TO 



K 5 

DISABLE MEMORY MANAGEMENT 



SEQ 0062 



OtUO 


ftft7/.C/. 


UUUc«» 1 




OVUf 


UUf *• 30 


\J\JO\J\Ji 




sons 


\JU f hOU 


1 7A 

1 U Jjr o 




sono 


UUf HOC 


1 yjj f jf 


UUUc r O 


SOI n 




UU 1 nUr 












SOI 9 










nn7A 7n 


UU03U3 


1 79X40 


SOI A 




UOC r U J 




UUr r O 


U I I jUU 




Ot 'O 


UU r 3UU 


UUO jUU 




R01 7 

Ot I r 


UUr 3Uc 


UUU3UU 




O 7 1 O 


UUr ?Uh 


1 1 onox 

1 1 UUU J 




RQIQ 

O T 1 T 


UU r ^UO 


U 1 vJJf 


000X1 ? 
UUU J 1 c 




UUr 7 1 c 


U 1 COU J 




Otc I 


wU r 3 1 *• 


01 7A00 

U 1 cOUU 




Otcc 


UU f J lO 


000P07 

UUUcUr 




Otc j 








Otch 








Otc 3 








OtcO 








RQ77 
O r 








O 7£0 








flOPQ 
Ot£T 








flO'^n 

Ot JV 








SQ^I 








Ot Jc 








Ot J J 








O 7 JH 








Ot J J 








Ot 
















O T JO 








Ot JT 








O tmU 








OTM 1 








Othc 








Ot«« J 








OrHH 








OtH J 


UU' JC\J 


0XP777 

\JJC iff 


004000 


O tMO 




001456 
UU 1 ■t^o 












AO^A 

OtHO 


0075^0 

UUr ^ JU 


01P700 

U 1 C r w 


000004 

UUUUUH 


Ot^It 


UUr JJ*t 


01P710 

VIC' ■ V 


000116 


OtPU 


UUf vtW 


vDvr Iv 




Ot J 1 


00754? 

UUr JHC 




000X5? 

UUUJ^C 


Ot 


00754A 
UU( 




17?140 


AO^^ 


00755? 

UUr JJC 




100000 
1 uuww 


AOS£ 

OT^"t 


00755^ 

UUr 






Ot 


0075AO 

UUr 3UU 




000X5? 

UvU J^C 


8956 


007564 


000241 




8957 


007566 


006003 




8958 


007570 


103372 




8959 


007572 


012710 


000104 


8960 


007576 


005702 




8961 


007600 


001431 





1$: 



CLC 

ROR 

BCC 

TSTB 

BEO 



R3 
1$ 

aiTMMAVA 
2% 



SHIFT A BANK BIT 
UNTIL IN BITS <2:0> OF R3 
MEMORY MANAGEMENT UNDER TEST? 
NO EXIT 



.GET PAR ADDRESS AND PHYSICAL BANK NO. 



2$: 



ASL 
ADD 
MOV 
ASL 
SWAB 
MOVB 
MOV 
MOV 
MOV 
RTS 



R3 

#172340. R3 

(R3>,R0 

RO 

RO 

R0.R3 

R3.afPBNK 

(SP)+,R3 

(SP)*.RO 

PC 



MAKE R3 PAR ADDRESS OFFSET. 
MAKE FULL PAR ADDRESS. 
GET PAR CONTENTS 

SHIFT BANK BITS TO BITS <7:0> 
SET R3 TO PHYSICAL BANK NO. 
STORE PHYSICAL BANK NO. 
RESTORE R3 
RESTORE RO 
RETURN TO CALLER 



PARITY ENABLE/DISABLE ROUTINE 

THIS ROUTINE ENABLES OR DISABLES PARITY MODULES AND PRINTS ASSOCIATED MEASSAGES. 
IF PARITY AVAILABLE THEN BIT13 OF "REL" IS SET AND "PAR"ITV IS PRINTED. 
ALSO THE BACKGROUND TEST PATTERN (LOC. BAKPAT) IS SETs376 

REGISTER USAGE. 

R0= POINTS TO BUS TIMEOUT TRAP VECTOR (LOC. 4) 
Rl= HOLDS PARITY MODULE UNIBUS ADDRESS. 
R2= ON ENTRY HOLDS ENABLE /DISABLE CODE . 

IF R2sO THEN DISABLE 

IF R2s1 THEN ENABLE 
R3- SCRATCH TO SETUP LOC. PARNAP WITH A NAP OF PARITY MODULES PRESENT. 



CALL IS 



170722 



MOV 
JSR 



PARITY: BIT 
BEQ 

MOV 
NOV 
ADD 

1$: CLR 
NOV 
MOV 

2S: NOV 
BIS 
CLC 

3$: ROR 
BCC 
MOV 
TST 
BEQ 



#1.R2 .'ENABLE CODE 
PC.PARITY 



f4000,aSWR 
6$ 

#4.R0 

#5i-.-6,(R0) 

PC,(RO) 

a«PARMAP 

#1 72140. Rl 

#1 00000. R3 

R2,-(R1) 

R3,afPARMAP 

R3 
2$ 

#BUSER.(RO) 

R2 

6$ 



.•PARITY TEST WANTED? 

.•BRANCH IF NO 

POINT RO TO BUS TIMEOUT ADDRESS. 

SET RETURN FROM TIMEOUT TRAP TO 5$ 

IN THE CURRENT BANK. 

CLEAR PARITY MAP HOLDER. 

SET Rl TO LAST PARITY MODULE ADDRESS»2 

SET R3 TO PARNAP AVAILABLE CODE BEGIN. 

ENABLE A PARITY MOOULE>TRAP IF NOT AVAILABLE. 

NO TRAP TO 5S. SO SET PARITY AVAILABLE. 

SETUP NEXT PARNAP BIT 

BRANCH IF NOT DONE ALL PARITY ADDRESSES. 
RESET BUS TIMEOUT TRAP VECTOR 
IS THIS A DISABLE CALL? 
BRANCH IF YES (EXIT) 



CNKMA 

8962 
8963 
8964 
8965 

8966 
8967 
(I) 
(1) 
8968 
8969 
8970 
8971 
8972 
8973 
8974 
8975 
8976 
8977 
8978 
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13:15 SUBROUTINE TO DISABLE HEHORV nANAGEHENT 



007632 
007640 

007646 
007652 



152737 
012737 

004767 
040520 



000040 
000376 

176732 
000122 



007656 000405 



SEQ 0065 



007602 005737 000352 

007606 001011 

007610 004767 176770 

007614 047516 050040 051101 
007622 000 
007624 

007624 004767 176336 

007630 000053 



000405 
000316 



4$: 



TST afPARHAP 

BNE 4$ 

JSR PC.TPCRLF 

.ASCI2 /NO PAR/ 



.EVEN 

JSR 

53 



BISB 

nov 

JSR 
.ASCIZ 
.EVEN 
BR 



PC.FATERR 



«40,8#REL 
«376,8#BAKPAT 

PC.TPCRLF 
/PAR/ 

EXITC 



WERE ANY PARITY MODULES FOUND? 
BRANCH IF YES 
PRINT '>I0 PAR" 



;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 53**«*** 



SET PARITY UNDER TEST FLAG 
SET BACKGROUND P^ > TERN TO 
UORST CASE PARITY CODE. 
PRINT "TST PARITY" 



:AND EXIT VIA RTS PC 



:GET HERE IF PARITY ADDRESS TIMED OUT TO LOC. 4 
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8980 

8981 007660 0:2626 

8982 007662 000741 
8983 

8984 007664 142737 000040 

8985 007672 

8986 007672 000207 
8987 

8988 
8989 
8990 
8991 
8992 
8993 
8994 
8995 
8996 
8997 

8998 007674 105037 000315 

8999 007700 105737 177560 

9000 007704 100372 

9001 007706 113702 177562 

9002 007712 042702 000200 

9003 007716 122702 000003 

9004 007722 001363 

9005 007724 110237 000315 

9006 007730 004767 176650 

9007 007734 041536 000 

9008 007740 

9009 007740 000167 175132 
9010 

9017 007744 

9018 007744 000000 
9019 

9020 
9021 
902? 

9023 000001 
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SUBROUTINE TO DISABLE MEMORY MANAGEMENT >E0 0064 

5$: CMP (SP)*,(SP)* ;RESET STACK FROM TRAP 

BR 3S ;»(EEP TRYING PARITY ADDRESES. 

000405 6$: BICB #40,afREL ;CLEAR PARITY TESTING FLAG 

EXITC: 

7$: RTS PC .-RETURN TO CALLER 



CHECKC 

THIS ROUTINE CHECKS IF CONTROL-C WAS TYPED AT THE END OF EACH 
TEST OR IN THE ERROR TYPE ROUTINE. 

IF CONTROL-C ^YPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF IT WAS 
RELOCATED AND THE ERROR HISTORY IS PRINTED OUT. 
FINALLY IT HALTS AT FATHLT. 



CHECKC: CLRB 
TSTB 
BPL 
M0V6 
BIC 
CMPB 
BNE 
MOVB 
JSR 
.ASCIZ 
.EVEN 
JMP 

.=7744 
ENDPRG: 0 



.END 



a#SAVKBB 

a#TKS 

EXITC 

a«$KBB.R2 

#200.R2 ; CLEAR 

#3.R2 

EXITC 

R2,a#SAVKBB 

PCTPCRLF 

/•C/ 



RELOER 



;INIT CONTROL-C FLAG. 
;ANY CHAR. TYPED? 
;BR IF NO-EXIT VIA RTS PC- 
;GET THE CHAR TYPED. 
THE PARITY BIT. 
;IS IT CONTROL-C? 
.•BRANCH IF NO -EXIT VIA RTS PC- 
;ELSE STORE THE CHAR. FOR USE AS A FLAG. 
.•PRINT "•C" 



;G0 RETURN PROGRAM TO LOWER CORE IF RELOCATED. 



THIS BEGINS THE STORAGE FOR THE ERROR HISTORY 
STACK. FOR EACH 4K BANK 18. BYTES ARE SAVED. 
ALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED 
AFTER THE ERROR STACK. 

FOR 4K MEMORY SIZE THEN PR0GRAM=7744*22=7776 



N S 



CNKMA 


MACVll 30(1046) 


27-DEC 


-82 13: 


16 PAGE 66 








P11 27-DEC-82 


13:15 




CROSS REFERENCE TABLE — 


USER 


SVWOLS 


ABASE = 


000000 


6961 










ACDyl = 


000000 

W "www WW 


6961 










"CDU2 = 


000000 

W W WW WW 


6961 










ACPUOPs 


000000 

WW WW WW 


6961 










ACT11 


005552 


8373 


8379* 








ADOUO s 


000000 


6961 










ADDU1 = 


000000 

w w www w 


6961 










ADDW10= 


000000 

w w w \# \^ 


6961 










ADDU11= 


000000 

w w w w 


6961 










ADDW12= 


000000 


6961 










ADDUl3s 


000000 


6961 










AODUIA- 


000000 


6961 










ADDW15= 


000000 


6961 










ADDU2 = 


000000 


6961 










ADDUS = 


000000 


6961 










ADDW4 = 


000000 


6961 










ADDW5 = 


000000 


6961 










ADDU6 = 


000000 


6961 










ADDU7 = 


000000 


6961 










ADDU8 = 


000000 


6961 










ADDU9 = 


000000 


6961 










ADEVCT= 


000000 


6961 










AOEVn = 


000000 


6961 










AFNV = 


000000 


6961 










AENVM = 


000000 


6961 










AF ATAL= 


000000 


6961 










AMADR1 = 


000000 


6961 










AnADR2= 


000000 

w ^/ w ^/ w 


6961 










AMADR3= 


000000 


6961 










AMADR4= 


000000 


6961 










AHAMS1= 


000000 


6961 










AMAMS2= 


000000 


6961 










AnAI1S3= 


000000 


6961 










AnAnsA= 


000000 


6961 










AnSGAD= 


000000 


6961 










AMSGLG= 


000000 


6961 










AMSGTV= 


000000 


6961 










AMTVP1= 


000000 

\^ w \^ w w w 


6961 










AMTYP2= 


000000 


6961 










AMTYP3= 


000000 


6961 










AMTYPA= 


000000 


6961 










APASS = 


000000 


6961 










APR10R= 


000000 


6961 










APTHLT 


006230 


8A00 


8520* 








APTSIZ 


000 72 A 


7021 


7035* 








ASUREG= 


000000 


6961 










ATESTNs 


000000 


6961 










AUNIT = 


000000 


6961 










AUSUR = 


000000 


6961 










AVECn = 


000000 


6961 










A\/£CT2= 


000000 


6961 










BAKPAT 


000316 


6800 


6917* 


6991* 7206 7410 


7412 


7420 




7802 


7808 


7812 7823 7826 


7861 


» 7954 


BEGIN 


000500 


6813 


6920 


6941 6971* 8219 


8230 


8236 


BRTPS7 


001012 


7051* 










BUSER 


000104 


6778* 


7101 


8773 8959 







3E0 006^ 



7429* 
8017* 



7489 
8018 



7520* 
8200* 



7686* 
8970* 



7719 7752* 



B 6 



CNKHA 


MACVll 30(10«.6) 


27-DEC 


-eZ 13: 


^6 PAGE 


66-1 






CNKMAA. 


PIT 27-0EC-82 


13:15 




CROSS REFERENCE 


TABLE — 


USER < 


CHECKC 


007674 


7266 


8495 


89984 








CKDONE 


005UA 


8205 


8228 


8238* 








CLRHEH 


001540 


7200# 


O ^ 9 A 

8270 










CLRW 


007420 


7136 


7156 


8390 


8888* 






CNTSCP 


001672 


7265 


7268* 










CONT 


001600 


721 7# 


T ^ 9rt 

7279 










CONTMH 


005172 


8202 


8249* 










CTLC 


005620 


8370 


O 9 A A M 

8399* 






8377* 




DECWRD 


000312 


6903# 


6904 


8335* 


8338* 


a^ d. ^ 

8662 


ENOPAS 


005534 


8247 


8311? 










ENOPRG 


007744 


6850 


69r y 


8315 


8440 


nA4 A M 

9018* 




ENDSTK 


000310 


£ AAA M 

6900# 


OA 4 

o901 


7123* 


8319 


8393 




ENDO 


002164 


7358# 


99 A^ 

7396 










EN01 


002264 


7396# 


9 J 9*% 

7432 










END10 


004030 


7866 


7874* 


8020 








END12 


004354 


8020# 


a 4 ^ y 

8126 


8159 








^H02 


002374 


7432# 


9r ^ 9 

7523 










END3 


002642 


7523# 


9P p a 

7558 










ENOA 


002752 


7358# 


9^ 9^ 

7636 










ENDS 


003120 


7636* 


9y a a 

7688 










END6 


003254 


7688* 


99y A 

7760 










END^ 


003500 


7760* 


9a9 ^ 

7874 










ERROR 


005630 


^9 4 ^ 

7317 


99 9y 

7376 


7426 


7485 


9P £ M 

7546 


9 p a A 

7582 






7984 


9AA A 

7990 


8115 


8125 


A4 £ 9 

8143 


a / 4 / 

8414* 


ERRTYP 


005746 


8447* 












EXITC 


007672 


a A9C 

8975 


a AO f M 

8985* 


9000 


9004 






EXTYP 


006602 


8624 


a^ 94 

8631 


8636* 








FAILNM 


005432 


a w ^ 

8334 


A 99 a ^ 

8338* 


83S1 


7191 


7345 




FATERR 


006166 


^AA 

7002 


9A/ a 

7048 


7169 


ap aam 

8509* 


FATHLT 


006236 


8487 


8522* 










FATYP 


007010 


8519 


8719* 










FNDERR 


00611 4 


8484* 


8521 










GALLOP 


003526 


7795* 


9A')'> 

7922 










GETAOR 


007332 


^ A / A 

7049 


9AC" A 

7050 


8838* 








GE TBNK 


A/\^/ / A 

007440 


04 fl V 

8183 


a / ^ 4 

8421 


8902* 








GETSIZ 


007350 


a 4 

8251 


a A y A 

8262 


8267 


8860* 






H I GHAO 


000332 


^ A^ a M 

6928* 


9A99 

7037 










HIGHTU 


A A A99 A 

000330 


6927* 


9A9 ^ 

7036 


7111 








LOOP 


A A 4 ^ 4 A 

001610 


7220* 


7277 










LOWAOD 


000326 


^ A^ f M 

6925* 












LOWBNK 


A A A 7 A / 

000304 


6893* 


£ an/ 

6894 


7705* 


7717 


99f A 

7750 




LOWER 


A A P 4 PA 

005150 


8238 


8242* 










LOWTUO 


A A A 9^ / 

000324 


o924* 


94 A/ 

7104 


7160 


8250 






M = 


AAA A A 

000200 


6755* 


8141 










MAXAOR 


A AP ^ 

005262 


8265 


8268 


8279* 








MAXHEH 


A A A 9/ A 

000340 


6934* 


9A9C 

7035 


7127* 


7337 


9C 4 9 

7517 


a ^4 ^ 

8216 


MEWING 


AA^A^ £ 

007064 


Ti A9^ 

7076 


8244 


8749* 








MEHFST 


A A 4 r 

001532 


94 n / M 

7194* 












MHAVA 


A A A^ 9^ 

000276 


^ a9r M 

6875* 


^ a9a 

6878 


7078 


8201 


8246 


8750* 


MMREG 


A A *V A TiA 

007070 


9Aan 

7089 


a^^ 4 

8261 


8750* 


8784 






H = 


000054 


6756* 


9A A A M. 

7002* 


7048* 


7169* 


9 4 n4 M 

7191* 


9^A/ M 

729*t» 






7426* 


9 / / Am 

7449* 


7472* 


7481^* 


9 4 n^ M 

7496* 


7532* 






7703* 


999^ MA. 

77560 


7791* 


7813* 


9ai9M 

7827* 


^A9 / M 

7834* 






a 4 / 9 M 

8143* 


ap^ ^ M 

8566* 


8574* 


8780* 


A A^ 9^ 

8967* 




NOWn 


UOf i lU 


Or J J 


Of f o# 










NOTYP 


006470 


8607* 


8643 


8645 









SEQ 006« 



7587 7612 



7666 



7736 7813 7827 



7834 



8780 8967 



8758* 8802 8888 8891* 8909 

7306* 7308* 7314* 7345* 7370* 7376* 

7546* 7577* 7582* 7587* 7612* 7658* 

7909* 7947* 7984* 7990* 8053* 8115* 



7409* 
7666* 
8125* 





MACVll 30(1046) 






16 PAGE 


66-2 


TABLE - 


CNKHAA.P11 27-0EC-82 


13:15 




CROSS REFERENCE 


OCTTVP 


A A^ ^ t t 

006744 


7106 


7110 


8703* 






OCTXT 


007062 


8699 


8702 


Of 35ff 






ONE PAS 


AAA f C ^ 

000556 


6983 


6986* 








PARcKR 


AA^ ^ y / 

006244 


6979 


8539* 








PARFL 


AAP/ ^A 

005470 


8331 


8350* 


DO/ Cm 
0745* 






PARITY 


007520 


7205 


8368 


8755* 


8962 


PARMAP 


000352 


6942# 


8545 


DOC 1 A 

8951* 


PARPS 


AAA A 

000360 


6945« 


8540* 


QCAQ 

8567 






PARSP 


AAA7CZ. 

000556 


69444r 


8539* 


flC7A 

iS5rU 


7CCZ.* 
f 3 j*»* 


7614* 


PASFLG 


A/ iA7A^ 

000506 


68954r 


6899 


751 7* 


7743 


7748 


r 73 1 ■ 


707^ 


7995 






8152 


8162* 


0 1 f J* 




8429 


PBNIC 


AAAT1 ^ 

000512 


6902# 


8422 


OVl 7* 


8659 


8700 


PCRLF 


AA^ P 

006572 


7105 


8633* 


DA 70 

o63o 


FN T WES 


00661 £ 


6813 


7914 


Q 1 fin 


82 1 3 


8584 


PUTAOR 


AAVT/ O 
00/^242 


7093 


7096 








PURDN 


AAAA7A 

0000 rO 


6769* 


6975 








PWRUP 


AAA1 / / 

000144 


6769 


6812* 






8206 


REL = 


AAA/ AC 
00040? 


6870* 


6982 


f lo2 


RELBOT 


AAA^ 
000322 


6920* 


7184 








RELOC 


AACAA/ 

005004 


7242 


8200* 








API & 

RELOER 


AACA7Z 

0050^6 


8207 


8226* 


7UU7 




8388 


^ TAT 

RESTRT 


0UU23U 


6827 


6843 


ABAC 


ABC Air 


AP TMM 


AA^^AA 

007206 


8753 


8774* 








RETSTK 


AAC 77/ 

005374 


8322* 


8326 


B7/ 0 

034 y 






aP T T a 

RETTtP 


AAZ. C 7A 

006550 


8611 


8620* 








RLODER 


AAC C 

005576 


8381 


8390* 


8377 






A A TAP T 

RPTOCT 


AA^AAA 

007000 


8346 


8716* 


077/ 

Bf 3h 






AA T 4 A 

RPTlO 


003522 


7793* 


7873 


7Q1 7 


701 A« 

f 7 1 Ow 




RPTl 1 


A A/ A7A 

004Uf U 


7869 


7872 


701 X 

f 7 1 3 




RPTo 


003140 


7659* 


7687 








P A k AA 

SAvKdd 


00031 J 


6907* 


8242 


fi7AO 
Oj07 


0770* 


9005* 


SAvLDR 


AA i 7 1 / 

001314 


7129 


7131 


71 Xt^m 
f 1 jO* 






SAvLOC 


000354 


6943* 


7680* 








P A k iM A W 

SAVnAX 


AAA7/ O 

000342 


6936* 


7192 










00o4 1 *» 


8543* 


8567 








SAVRl 


000416 


8544* 


8568 


OJf 7* 






P AliSJ 

SAVR* 


AAA 7/ / 

00034* 


6937* 


8391 






8235* 


p A kf DC 


AAA7/ A 

000 3hO 


6851 


6938* 


71 ^7* 


occO 


C A liDiL 

SAVKo 


00035U 


6812 


6837 


07H \ m 


A07^* 
0 


7321 


SCOrc - 


00024U 


6761* 








7532 


C C AC DD 

ScUcHH 


AAZ. 1 


7294 


7370 


f H U7 


f HHy 


St TSTIk 


f\^\^ 0 5n 
001 220 


6988 


7111* 










AAA/LCA 

000050 


7011* 












AA1 AO/ 

0U1024 


7060* 










P AA «b 

SRO = 


1 77C70 
\ f f^fi 


6916* 


8757* 


B771 * 
Of 11* 


BBQA* 




START 


000200 


6820 


6837* 




77^3 




STkTDI 


AAA7A0 

000302 


6891* 


6892 


771 

f f 1 5* 




CLl A DA T 


000320 


6919* 


7829 


7ft'T'? 


f OOU" 




SWHAL 1 


00 1 f 1 2 


7274* 










syR 


000450 


6968* 


7014 


7ni 7* 


f 022* 


7053 




8204 


8311 


oji c 




8490 


SWREC 


000176 


6830* 


7017 








swn = 


004000 


6757* 










TBL 


001626 


7226 


7230* 


7231 


7212 


7233 


7242 











C 6 
USER SYMBOLS 



5P0 AAA/ 



7631* 7661* 7670 7672* 7685* 7704* 
8001* 8002 8010* 8011 8098 8105 



8591 8642* 



8208* 8227 8234* 8969* 8984* 



7727 
8118 



7741* 
8134 



8523 



8237* 8541 
7577 7658 



7703 7791 



7909 



7947 8053 8510* 



7167 
8642 



7234 



7209 
8698 



7272 
B752 



7276 
8945 



7331 7912 



7235 7236 7237 7238 



7239 



7916 
7240 



8176 

7241 





MACYll 50(1046) 


27-OEC 


-82 1 3 : 


16 PAGE 


66-3 




pn 27-DEC-82 


13:15 




CROSS REFERENCE 


TKS = 


177560 


691 2« 


8999 


8582* 




TRADER 


006420 


8333 


8470 


8638* 


TPCRLf 


006604 


6846 


8374 


8510 


TPPRER 


006444 


8350 


8466 


8589* 




TRYSR 


001014 


7039 


7053* 






TSTGO 


001714 


7273 


7276* 






TSTWI 


005156 


7170 


8244* 






TSTREL 


001 372 


6984 


7157* 






TSTRP 


000570 


6987 


6989* 






TSTSCP 


001660 


7264/r 


7358 






TSTSIZ 


001376 


7158# 








TSTO 


001730 


7230 


7292* 






TST1 


002166 


7231 


7366* 






TST10 


003502 


7238 


7788* 






TST11 


004032 


7239 


7906* 






TST12 


004104 


7240 


7945* 


8019 




TST13 


004356 


7241 


8051* 






TST2 


002266 


7232 


7406* 






TST3 


00<?376 


7233 


7447* 


7521 




TST4 


002644 


7234 


7530* 






T5T5 


002754 


7235 


7574* 






TST6 


003122 


7236 


7654* 






TST7 


003256 


7237 


7700* 




8475* 


TYPCNT 


000314 


6905« 


6977* 


8345* 


TYPDEC 


006634 


8337 


8659* 




8463* 


TYPENB 


000277 


6879* 


6882 


8447* 


TYPE OP 


005526 


8374« 








TYPERR 


006722 


8479 


8698* 






TYPnEn 


001206 


7107# 








TYPOCT 


006754 


8701 


8707* 


7101* 




TVPSIZ 


001164 


7051 


7054 




TYPSTK 


005354 


831 7# 


8323 






UPMM 


007234 


8249 


8783* 


7578 


7659 


URTMEM 


000120 


6799* 


7451 


tA = 


000001 


6093* 


6106* 


6109* 


6114* 


6165* 


6169* 


6173* 


6177* 






6220* 


6231* 


6235* 


6244* 






6291* 


6296* 


6303* 


6309* 


tADEf<R 


000301 


6887* 


6890 


7310* 


7424* 


(APT HO 


000276 


6867* 


6874 






SCNTMH 


005176 


8248 


8250* 






SCPUOP 


000426 


6961* 






7856* 


$de\/ct 


000410 


6961* 


7271* 


7740* 


(DOAGN 


005572 


8380 


8388* 






SENDAO 


000164 


6766 


6823* 


8386 


8484 


SENV 


000420 


6961* 


7020 


7264 


SENVM 


000421 


6961* 


7038 


7329 


8626 


SEOP 


005476 


8312 


8320 


8367* 




SE TABL 


000420 


6961* 








seteno 


000450 


6867 


6961* 


8423* 


A i 9 4 

8431 


SFATAL 


000402 


6961* 


8414* 


SGTSIZ 


007346 


7112 


8857* 






SHO = 


000002 


6678 








SHIBTS 


000276 


6867* 








SHIMAX 


000334 


6931* 


7036* 






SKBB = 


177562 


6913* 


9001 







8646 



0 6 



8777 8964 8972 9006 



SEO 0068 



8589 



6119* 
6181* 
6248* 
6313* 
7482* 



6125* 6131* 

6186* 6190* 

6251* 6257* 

6318* 6323* 

7S44* 8451 



6138* 
6194* 
6261* 

8468 



6144* 6149* 
6198* 6202* 
6265* 6269* 



6153* 6157* 6161* 
6204* 6212* 6216* 
6277* 6281* 6285* 



8520 



8514* 8517 
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E 6 
USER SYMBOLS 



SEO 0069 



SnAORI 
SnA0R2 
tMADR3 
, SHA0R4 
MAIL 
SHAMSI 
iHAMS2 

snAns3 

MAHS4 

SMAXn 

SMBAOR 

SMSGAD 

tMSGLG 

WSGTY 

MITYP1 

$HTrP2 

WTYP3 

WTYP4 

SNUTSTs 

(PASS 

tPASTH 

SPRERR 

SRETPW 

SSVPC 5 

SSUR = 

SSUREG 
STESTN 



000432 
000436 
000442 
000446 
000400 
000430 
000434 
000440 
000444 
000336 
000300 
000414 
000416 
000400 
000431 
000435 
000441 
000445 
000001 
000406 
000304 
000300 
007200 
000044 
000000 

000422 
000404 



STN : 000014 



$TPB = 

$TPCHR 

STPDEC 

STPNUH 

»TPS = 

STPSTK 

STYPE 
SUN IT 
lUNITM 
tUSWR 
il 

ill = 



177566 
006546 
006640 
007012 
177564 
005344 
000302 
006504 
000412 
000306 
000424 
000362 
007744 
000200 
007746 



000276 



6961 # 

6961 # 

6961* 

6961* 

6840 

6961* 

6961* 

6961* 

6961* 

6932* 

6867* 

6961* 

6961* 

6778* 

6961* 

6961* 

6961* 

6961* 

7292* 

6961* 

6867* 

6883* 

8772* 

6766* 

6678* 

8051 

6961* 

6844 

7788 

6675* 

8051* 

6915* 

8617 

8184 

8715 

6914* 

8243 

6867* 

7107 

6838 

6867* 

6961* 

6951* 

9012* 

8141* 

6746* 

6882* 

7293 

8168 

6867* 



6867 


6961* 


6994 


7007 


















7037* 


7120 






















6961* 


8486* 






















7041 

7366* 

6986 


7406* 
8371* 


8377 


7530* 


7574* 


7654* 


7700* 


7788« 


7906* 


7945« 


8051* 




oolio 
8781 


OVf 0" 


Onto 


OH OH 


8481* 

OHO 1 


8565* 














6758* 


7292 


7366 


7406 


7447 


7530 


7574 


7654 


7700 


7788 


7906 


7945 


7022 
6870 

f OjO 

6678 


6961* 
7292* 


7218* 
7871 

7366* 


7268 
7906 
7406* 


7292 
7945 
7447* 


7366 
8051 
7530* 


7406 
7574* 


7447 
7654* 


7530 
7700* 


7574 
7788* 


7654 
7906* 


7700 
7945* 


8630* 
8626* 
8339 
8720* 

OOco 

8313* 


8725 
8378 


8661* 




















8612* 
6961* 


8633 


8639 


8674 


8716 
















6952 
9013 
























6750 
6886* 
7342 
8440 


6763* 
6890* 
7369 
8635* 


6766* 
6892* 
7408 
8949 


6768* 
6894* 
7448 
8966* 


6773* 
6899* 
7531 
90081 


6776* 
6901* 
7576 
9012 


6782* 
6904* 
7657 
9017* 


6808* 

6951 
7702 


6829* 
6960* 
7790 


6867* 
6970* 
7908 


6874* 

6979 

7946 


6878* 

7226 
8052 
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